AutoCADマクロ屋本舗 掲示板

初めまして。すみません、寸法記入のマクロでこの様に折れて全体寸（合計寸）を引くようなマクロはありますでしょうか？

お手数ですが教えて頂けると幸いです。


使用しているCADは【AUTOCAD LT 2023】です。

マクロとは、手動で出来ること。を手間を減らして行う機能です。
そんな形状の寸法は寸法オブジェクトでは作れません。
従って、線分と文字で作るしか無いと思います。
実際、その画像の寸法はどの様にして書いているのですか？
（それが判ったとして、マクロでは難しいと思う）

ダイナミックブロックを使えばどうにかなるのかもしれません。
（私は作れる自信はない）

Hamuさんが質問している
その画像の寸法はどの様にして書いているのですか？
は、自分も気になります

動けばラッキーで
寸法ではありませんし応用もききませんのであしからず

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ucs;ob;１本目の寸法補助線の起点付近を選択^X\undo;be;xplode;non;@;;$M="""$(if,$(getvar,CMDACTIVE),e;)"""lengthen;non;@;dy;;setenv;to;1,,,,,,,)$(nth,$(getenv,to),,;l1;$(getvar,PERIMETER);undo;e;u;dimlinear;0<0;\\dimoverride;dimsah;1;dimblk2;_none;dimse2;1;;l;;id;non;@;setenv;p1;$M="""$(getvar,LASTPOINT)""";ucs;p;setenv;to;2,,,,,,)$(nth,$(getenv,to),,,explode;l;erase;l;;undo;be;erase;l;;ucs;ob;l;id;non;$(/,$(getenv,l1),2)<E;ucs;p;id;non;@;setenv;p2;$M="""$(getvar,LASTPOINT)""";undo;e;u;ucs;ob;１本目の寸法補助線の起点付近を選択^X\setenv;to;3,,,,,)$(nth,$(getenv,to),,,,undo;be;xplode;non;@;;$M="""$(if,$(getvar,CMDACTIVE),e;)"""lengthen;non;@;dy;;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,;l2;$(getvar,PERIMETER);undo;e;u;dimlinear;0<0;\@$(index,1,$(getenv,p1))<S;dimoverride;dimsah;1;dimblk2;_none;dimse2;1;;l;;ucs;p;setenv;to;5,,,)$(nth,$(getenv,to),,,,,,explode;l;erase;l;;undo;be;erase;l;;ucs;ob;l;id;non;$(/,$(getenv,l2),2)<E;ucs;p;id;non;@;setenv;p3;$M="""$(getvar,LASTPOINT)""";undo;e;u;setenv;to;6,,)$(nth,$(getenv,to),,,,,,,;L0;$(+,$(getenv,l1),$(getenv,l2));extend;non;$(getenv,p2);non;$(getenv,p3);;non;$(getenv,p2);non;$(getenv,p3);;setenv;to;7,)$(nth,$(getenv,to),,,,,,,,text;j;bc;\$(getvar,DIMTXT);0;$(getenv,l0);move;l;;non;@;non;@$(/,$(getvar,DIMTXT),3)<N;^Csetenv;to;0)^M

１.マクロ起動
２.寸法1点目付近のオブジェクト選択(UCS変更します)①
３.2点目指定②
４.寸法位置を指定③
５.2本目の寸法1点目付近のオブジェクト選択(UCS変更します)④
６.2点目指定⑤
７.文字記入の基準位置を指定⑥

LT2026で確認

こうすれば
７.文字記入の基準位置を指定⑥
は省略できるかな
ついでにp2、p3の設定計算も修正

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),ucs;ob;１本目の寸法補助線の起点付近を選択^X\undo;be;xplode;non;@;;$M="""$(if,$(getvar,CMDACTIVE),e;)"""lengthen;non;@;dy;;setenv;to;1,,,,,,,)$(nth,$(getenv,to),,;l1;$(getvar,PERIMETER);undo;e;u;dimlinear;0<0;\\dimoverride;dimsah;1;dimblk2;_none;dimse2;1;;l;;id;non;@;setenv;p1;$M="""$(getvar,LASTPOINT)""";ucs;p;setenv;to;2,,,,,,)$(nth,$(getenv,to),,,explode;l;erase;l;;undo;be;erase;l;;ucs;ob;l;id;non;$(*,$(getenv,l1),0.8)<E;ucs;p;id;non;@;setenv;p2;$M="""$(getvar,LASTPOINT)""";undo;e;u;ucs;ob;１本目の寸法補助線の起点付近を選択^X\setenv;to;3,,,,,)$(nth,$(getenv,to),,,,undo;be;xplode;non;@;;$M="""$(if,$(getvar,CMDACTIVE),e;)"""lengthen;non;@;dy;;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,;l2;$(getvar,PERIMETER);undo;e;u;dimlinear;0<0;\@$(index,1,$(getenv,p1))<S;dimoverride;dimsah;1;dimblk2;_none;dimse2;1;;l;;ucs;p;setenv;to;5,,,)$(nth,$(getenv,to),,,,,,explode;l;erase;l;;undo;be;erase;l;;ucs;ob;l;id;non;$(*,$(getenv,l2),0.8)<E;ucs;p;id;non;@;setenv;p3;$M="""$(getvar,LASTPOINT)""";undo;e;u;setenv;to;6,,)$(nth,$(getenv,to),,,,,,,;L0;$(+,$(getenv,l1),$(getenv,l2));extend;non;$(getenv,p2);non;$(getenv,p3);;non;$(getenv,p2);non;$(getenv,p3);;setenv;to;7,)$(nth,$(getenv,to),,,,,,,,text;j;bc;end;$(getenv,p2);$(getvar,DIMTXT);0;$(getenv,l0);move;l;;non;@;non;@$(/,$(getvar,DIMTXT),3)<N;^Csetenv;to;0)^M

すみません、ありがとうございました。
乗せた絵は線分にて書いたものです。

返事ありがとうございました

>（それが判ったとして、マクロでは難しいと思う）

「出来ない」とは言ってませんからねっ！

難しい物を作ったchibi-tomさんが、普通じゃないだけです！