AutoCADマクロ屋本舗 掲示板

以前よりマクロに関しましてサイトを拝見させて頂いておりますが、はじめて投稿させて頂きます。

標高の記入による以前の投稿にて下記のマクロを使わせて頂いております。

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

基準線の標高入力　⇒　基準線選択　⇒　標高記入位置選択

私は文字記入のみで使わせて頂いております。図面作成単位をｍで行った場合は問題なく使えておりますが、図面作成をｍｍ単位で作成した場合に思うようにいきません。
図面をｍｍで作成、単位基準線標高をｍで入力、標高をｍで記入としたいと考えています。

お手数ではありますがご教示願えませんでしょうか。宜しく御願い致します。

提示マクロは「ray;endp ;^X文字記入位置選択」に余分な空白があって、動きませんね。
指示位置をちょっと変えたマクロはこうなります

*^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;non;@;;;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(/,$(index,1,$(getvar,lastpoint)),1000)),2,2))^M

ご教示ありがとうございます。

さっそく試してみましたが標高の数字がｍ入力の数字になりませんでした。

基準高さ（ｍ）+ 図面高さ（ｍｍ）の値が記入されてしまいます。

AutoCADLT2014を使用しております。

何度も申し訳ありませんが、ご確認宜しく御願い致します。

すいません。正しく動作しました。
コマンドへの登録が正しくできておりませんでした。
有難うございます。

もう一つ御願いなのですが標高が47.9であった場合に47.90で記入
できませんでしょうか。

重ねてご教示御願い致します。

現在設定している寸法スタイルの「基本単位タブ」
0省略表記の末尾のチェックを外してください。
少数位２桁で表記されると思います。

有難うございます。

うまく動作致しました。

大変助かりました。今後とも宜しく御願い致します。

恐れいります。

以前、下記の標高記入マクロを修正して頂きしばらく問題ないと思い使用しておりましたが
表記される数字に誤差が生じている状況を確認しました。

*^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;non;@;;;$(if,$(eq,$(getenv,txt),0),,$(getenv,txt))$(rtos,$(+,$(getenv,hk),$(/,$(index,1,$(getvar,lastpoint)),1000)),2,2))^M

何度か試したのですが実際の標高と記入される標高が0.01ｍの差が生じる場合があります。

小数点3桁で確認したのですが　実際は49.22⇒49.21　、　49220⇒49213　となってしまいます。

何か原因があるのでしょうか。ご教示頂ければと考えています。宜しく御願い致します。

失礼しました。投稿した内容に誤りがありました。DLラインが微妙にまがっておりました。

申し訳ありません。マクロのせいではありませんでした。

正常に動いております。

お恥ずかしいかぎりです。一度、投稿したものは削除できないのでしょうか。

今後、気を付けるように致します。