AutoCADマクロ屋本舗 掲示板

お世話になっております。いつも参考にさせていただいております。

Autocad20025を使用しております。
2017年6月の投稿にありました標高旗揚げのマクロを使用させていただきましたが、標高がなぜか1mm高くなってしまうのですが、justの標高にして頂くことは可能でしょうか。

https://totthi.bbs.fc2.com/?act=reply&tid=16131259

使用したマクロ

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;non;^X引出し方向をｸﾘｯｸ--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;line;non;@;^X^X【測定位置をｸﾘｯｸ】^X\;erase;l;;setenv;to;2,ucs;p)""",,,,)$(nth,$(getenv,to),,,;to;3;;x1;$(*,$(nth,$(fix,$(/,$(angtos,$(getvar,lastangle),0,8),90)),-,,,-)$(+,0.577350269189,15,$(getvar,dimasz)),$(getvar,dimscale),1),,)$(nth,$(getenv,to),,,,;to;4;;y1;$(*,$(nth,$(fix,$(/,$(angtos,$(getvar,lastangle),0,8),90)),-,-,,)15,$(getvar,dimscale),1),)$(nth,$(getenv,to),,,,,;to;1;leader;non;@;non;@$(getenv,x1)","$(getenv,y1);;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(*,$(index,1,$(getvar,lastpoint))),0.001),2,3);)^M

宜しくお願い致します。

最後の部分の ) の位置がちょっとおかしいみたいです。
ｍ単位になってないと思いますし。0.001を掛けるんじゃなくて足すことになってしまっています。　

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;hk;基準線の標高を入力^X\;txt;接頭文字記入(無しの場合は半角数値0記入)^X\ucs;ob;\setenv;to;1,ray;non;^X引出し方向をｸﾘｯｸ--設定修正(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;line;non;@;^X^X【測定位置をｸﾘｯｸ】^X\;erase;l;;setenv;to;2,ucs;p)""",,,,)$(nth,$(getenv,to),,,;to;3;;x1;$(*,$(nth,$(fix,$(/,$(angtos,$(getvar,lastangle),0,8),90)),-,,,-)$(+,0.577350269189,15,$(getvar,dimasz)),$(getvar,dimscale),1),,)$(nth,$(getenv,to),,,,;to;4;;y1;$(*,$(nth,$(fix,$(/,$(angtos,$(getvar,lastangle),0,8),90)),-,-,,)15,$(getvar,dimscale),1),)$(nth,$(getenv,to),,,,,;to;1;leader;non;@;non;@$(getenv,x1)","$(getenv,y1);;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(*,$(index,1,$(getvar,lastpoint)),0.001)),2,3);)^M

こちらでどうでしょうか？

LUNE様

できました！
いつもありがとうございます。
大変助かります。