AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。
オートキャド2018を使用しています。

設備設計を行っていまして、積算にて拾い出しを行う際、ケーブル等の長さを測定してその数値を図面上に書き込むマクロがあったら教えて頂けないでしょうか。
JWWでは測定値を書き込むコマンドがあったのですがオートキャドでは見当たらず困っております。

よろしくお願いいたします。

こちらのマクロ集
138.一発合計長さ計測を参考に最後に文字記入を追加しました
https://ameblo.jp/totthi-macro/entry-11492915852.html

R版ご使用なら
下記対応の上お試しください
https://ameblo.jp/totthi-macro/entry-10895232361.html

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;non;0<0;p;;-layout;n;KDIST;;s;KDIST;point;non;$(getvar,viewctr);ERASE;ALL;;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;dy;;erase;l;;setenv;to;2,,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;to;4,)$(nth,$(getenv,to),,,,,text;\$(getvar,textsize);0;$(getenv,pe);;^Csetenv;to;0)^M

使用方法及び注意点は
138.一発合計長さ計測を参考ください
最後に『文字記入位置を選択する』を追加しただけです

chibi-tom様
ご回答頂きありがとうございます。
追加で2点教えて頂けないでしょうか。

・測定した数値をm単位とし、小数点第一位までの表示としたいのですが可能でしょうか。
・オブジェクトを測定ではなく、MEASUREGEOMコマンドの距離にて測定した数値を書き込むようなイメージです。
※積算上配線は最短距離で拾い、実際に引いている線とは距離が異なるためです。

私の説明が不足しており申し訳ございません。
該当するマクロがありましたら教えて頂けないでしょうか。
よろしくお願いいたします。

MEASUREGEOMコマンドを普段使わないので
見当違いのことを言っているかもしれませんが

MEASUREGEOMコマンドで計測した後に

下記マクロでどうでしょうか？
^C^C$M=text;\$(getvar,textsize);0;$(rtos,$(/,$(getvar,DISTANCE),1000),2,1)m;^Z

または

こちらのマクロ集
【特殊】
■ループマクロ

を参考にして
https://ameblo.jp/totthi-macro/entry-10950262965.html

setenv
cmdloop-
"\$m=$(if,$(getvar,cmdactive),$(getenv,cmdloop-),)"

上記の3行をコピーして
コマンドラインに直接貼り付け
その後に下記マクロで

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),pline;$(getenv,cmdloop-)lengthen;l;dy;;erase;l;;setenv;to;1,text;\$(getvar,textsize);0;$(rtos,$(/,$(getvar,PERIMETER),1000),2,1)m;^Csetenv;to;0)^M

１.マクロ起動
２.ポリラインでMEASUREGEOMコマンドの測定のように線を記入
３.文字記入位置を指定

chibi-tom様
早速のご回答ありがとうございます。
教えて頂いたマクロで希望の操作ができました！
助かりました。
この度はお忙しい中ありがとうございました。
よろしくお願いいたします。