AutoCADマクロ屋本舗 掲示板

先程コメントにて失礼しました。

私はAutoCAD2015R版使用してます。
エラーは
コマンド: to
TOOLBAR ツールバー名を入力 または [すべて(ALL)]: 0

ツールバーが見つかりません。
ツールバー名を入力 または [すべて(ALL)] <0>: *キャンセル*

コマンド:
コマンド:
コマンド: $m=setenv
そのようなコマンド "$M=SETENV" はありません。ヘルプを表示するには F1 キーを押してください。

コマンド: to
TOOLBAR ツールバー名を入力 または [すべて(ALL)]: 0

ツールバーが見つかりません。

です。
同じ職場の2016の方にも試してもらいましたが
同じ現象が起きました。

長々と失礼しました。

今一度確認しましたら
マクロが最後まで表示されていなかったみたいです。

修正しましたので、再度お試しください。

154.文字 下線/二重下線付加
https://ameblo.jp/totthi-macro/entry-12381718703.html

おはようございます。
修正ありがとうございました。

いま現在、


コマンド: extend

現在の設定: 投影モード=UCS、エッジモード=延長
境界エッジを選択 ...
オブジェクトを選択 または <すべて選択>: p
認識された数: 1

オブジェクトを選択:

延長するオブジェクトを選択 または Shift を押してトリムするオブジェクトを選択 または
[フェンス(F)/交差(C)/投影モード(P)/エッジ(E)/元に戻す(U)]: f

フェンスの 1 点目を指定 または クリックしてカーソルをドラッグ: non

オブジェクト スナップはここでは使用できません。
応答が無効です。

というエラーになっているにですが、
やはり2015Ver.だと何かが不具合なのでしょうか。。。

どのバージョンからか忘れましたが
extend/trimコマンドのフィレットモードでの
マクロ中のnoneが弾かれるみたいです。

こちらをお試し願います。

♪文字 下線/二重下線付加　Ver.2015
*^C^C$m=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,;to;0;offset;;^x^x文字を選択【$(nth,$(getenv,sw),下線,二重下線)】--切替(Rc)--^x\$M="""$(if,$(getvar,cmdactive),;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;undo;be;setenv;to;2,setenv;sw;$(nth,$(getenv,sw),1,0);;to;1)""",,,,)$(nth,$(getenv,to),,,;to;3;-attedit;y;;;;non;@;non;@;;$M="""$(if,$(getvar,cmdactive),;setenv;to;1,)""",,,)$(nth,$(getenv,to),,,,;to;4;explode;l;"""$m=$(if,$(getvar,cmdactive),;)"""explode;l;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;l;,,)$(nth,$(getenv,to),,,,,;to;5;ucs;e;l;sortents;127;line;non;0<0;non;@0.05<0;;extend;p;;f;@-0.02",0.1;@0,-0.2;;f;@-0.02,0.1;@0,"-0.2;;,)$(nth,$(getenv,to),,,,,,;to;1;chprop;l;;c;8;;move;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;$(nth,$(getenv,sw),,copy;p;;non;0<0;non;$(*,$(getvar,dimscale),0.5)<270;)ucs;p;;p;;p;copybase;0<0;p;l;;undo;e;u;pasteclip;non;0<0)^M

2015動作確認できました！
ありがとうございます。

なるほど..
2013で動作確認できたということは
それ以降ですね。
2015はマクロに関してもその他も不便感じます;;;

ありがとうございました。