AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。

マクロの作成をお願いしたいです。

複数の点を指定　→　選択した点間の距離を測定　→　測定した距離を図面上に任意の場所に記入

2点間ならDISTで出来たのですが複数の場合は知識不足の為、力をお借りしたいです。

どうかよろしくお願いいたします。

確認です。
複数の点を指定して、それぞれの点間の距離をそれぞれ記入ですか？
それとも、トータルの距離ですか？

トータル距離なら、ポリラインで各点を指定したら、プロパティに距離がでますので、
確認したら、ポリラインを消せばよいです。

早速のご返答ありがとうございます。

トータルの距離です。

ポリラインのことも知ってはいますが、それを一つのマクロで動作できるのであれば作業が早くなるので依頼させて頂きました。

後、使用しているバージョンを書き忘れていました。

AUTOCAD2020LTです。

とりあえず参考でこんなのでどうでしょうか？

http://totthi.bbs.fc2.com/?act=reply&tid=16675116#24202271

ご返信ありがとうございます。

URL先を拝見させていただきました。

素晴らしいマクロだと思いますが一つのマクロにまとめることは可能でしょうか。

図々しいですがよろしくお願いいたします。

下から２番目（chibi-tom 2021/08/23 (Mon) 13:47:26）のマクロではないですか？

マクロ起動して、ポリラインで点を指示して、総延長を記入。

ポリラインは延長計測の為の疑似行為なので、削除されるように作ってあります。

確認がちょっと足りなかったですね。

>一つのマクロにまとめる

3行のコピーは最初だけでOKですがそれでもだめですか？
ユーザー変数のcmdloop-を設定しているだけですので
『同じCADなら』
次からは設定済みになると思うので
マクロの起動だけで大丈夫だと思います

ご返信ありがとうございます。

再度拝見させていただきました。

確認不足で申し訳ありませんでした。

動作は問題なく動きましたのでこちらを使わせていただきます。

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

参考までにこんな方法もあります

3行のコピーは必要ありません

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),line;\\;select;l;;setenv;to;1,,)$(nth,$(getenv,to),,line;non;@;次の点を指定(R-Clickで指定終了):^X\$M="""$(if,$(getvar,CMDACTIVE),;pedit;m;p;l;;j;;;select;l;;setenv;to;1,lengthen;l;dy;;erase;l;;setenv;to;2)""",)$(nth,$(getenv,to),,,text;\$(getvar,textsize);0;$(rtos,$(/,$(getvar,PERIMETER),1000),2,1)m;^Csetenv;to;0)^M

操作方法はほぼ変わりありません