AutoCADマクロ屋本舗 掲示板

バージョンはAUTOCAD2018です。

以下の標高マクロに、点も同時に追加したいのですが、いかがでしょうか?

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;nea+int+endp;^X文字記入位置選択--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,ucs;p)""",)$(nth,$(getenv,to),,,;to;1;-text;nea+int+endp;@;0;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(*,$(+,$(getenv,hk),$(index,1,$(getvar,lastpoint))),0.001),2,3))^M

点とはpointコマンドのことでしょうか？（ブロック？）
どこに点をいれるのでしょうか？

添付した画像のように、変化した折れ点に標高と点を同時に作成するマクロです。
どうでしょうか？

点の位置は一意決まるのですが、
テキストの位置ってどのように決めています？
見易さ重視でてきとーに少し離すとか(まぁ、主観ですが。。)、
テキストの位置にも意味があるから折れ線の頂点に挿入点をもってくるとか。

ただのpointでいいならこうですかね？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;nea+int+endp;^X文字記入位置選択--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;point;nea+int+endp;@;setenv;to;2,ucs;p)""",)$(nth,$(getenv,to),,,;to;1;-text;nea+int+endp;@;0;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(*,$(+,$(getenv,hk),$(index,1,$(getvar,lastpoint))),0.001),2,3))^M

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