AutoCADマクロ屋本舗 掲示板

LT2018を使用です。

マクロ集に掲載の「33.寸法値編集マクロ 　φ⇔P.C.D記入(右ｸﾘｯｸ切替)」の動作がうまくいきません。
バージョンによる動作不良でしょうか。どなたか教えてください。

＜掲載のマクロ＞
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,)$(nth,$(getenv,to),,dim1;override;dimpost;%%C<>;;p;;dist;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;2;)""",)$(nth,$(getenv,to),,,dim1;override;dimpost;P.C.D.<>;;p;;dist;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;1)""",)^M


＜マクロ開始から右クリックで変更しようとしたところまで＞
----------------------------------------------------
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド: select

オブジェクトを選択: 認識された数: 1

オブジェクトを選択:

コマンド: setenv
変数名を入力: to
値 <0>: 1


コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0


コマンド: dim1

DIM(寸法記入): override

優先する寸法記入変数名を入力 または [優先設定をクリア(C)]: dimpost
寸法記入変数の新しい値を入力 <dist>: %%C<>

優先する寸法記入変数名を入力:

オブジェクトを選択: p
認識された数: 1

オブジェクトを選択:

コマンド: dist

1 点目を指定: *削除*
【OK(左ｸﾘｯｸ)/NO(Enter)】*削除*
【OK(左ｸﾘｯｸ)/NO(Enter)】

2 点目を指定 または [複数点(M)]:

長さ = 0.0000、 XY平面の角度 = 0.0、 XY平面からの角度 = 0.0
デルタ X = 0.0000、 デルタ Y = 0.0000、 デルタ Z = 0.0000

コマンド: id
点を指定:

コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド: select
----------------------------------------------------

以上、よろしくお願いいたします。

Lt2021での確認ですが、これで大丈夫かと思います

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,)$(nth,$(getenv,to),,dim1;override;dimpost;%%C<>;;p;;ray;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;2)""",)$(nth,$(getenv,to),,,dim1;override;dimpost;P.C.D.<>;;p;;ray;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;1)""")^M

参考までに変更箇所を
１.distコマンド部分2か所をrayに変更(コマンドの仕様変更)
２.setenv;to;2;部分、最後の;を削除(仕様の違い？ちょっとついている理由がわかりませんでした)
３.setenv;to;1)""",)^M部分、最後の,を削除(仕様の違い？これも理由がわかりませんでした)

chibi-tom様

LT2018でも正常に動作しました。
ありがとうございました。

度々申し訳ありません。

　φ⇔P.C.Dに加え、右クリック切替で、3番目に接頭表記無しを追加した場合について教えてください。

ほい。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;sw;0;;to;1,)$(nth,$(getenv,to),,;sw;$(nth,$(getenv,sw),1,2,0);dim1;override;dimpost;$(nth,$(getenv,sw),%%C<>,P.C.D.<>,<>);;p;;ray;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),,setenv;to;1)""")^M

Lon 様

ありがとうございます。
思い通りのものになりました。