AutoCADマクロ屋本舗 掲示板

下記マクロで
自分の中で自動判断が可能なような気がしていて
やっと見つけたので勝手な自己満足ですが

https://totthi.bbs.fc2.com/?act=reply&tid=15361969
https://totthi.bbs.fc2.com/?act=reply&tid=16349823#23315218

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\aidimtextmove;;p;;;copybase;0<0;p;;erase;p;;-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;setenv;to;1,,,,,)$(nth,$(getenv,to),,;to;5;select;l;;undo;be;explode;l;ucs;ob;l;setenv;to;2,,,,)$(nth,$(getenv,to),,,$(if,$(index,0,$(getvar,UCSYDIR)),;to;3,;sw;$(if,$(<,$(index,1,$(getvar,UCSYDIR)),0),0,1);;to;4),,,)$(nth,$(getenv,to),,,,;sw;$(if,$(<,$(index,0,$(getvar,UCSYDIR)),0),1,0);;to;4,,)$(nth,$(getenv,to),,,,,undo;e;u;dimoverride;dimtad;$(if,$(getenv,sw),4,1);dimtxtdirection;$(if,$(getenv,sw),1,0);;l;;copybase;non;0<0;l;;erase;l;;model;pasteclip;non;0<0;-layout;s;tmplo;setenv;to;1,)$(nth,$(getenv,to),,,,,,model;-layout;d;tmplo;;^Csetenv;to;0)^M

１.マクロ起動
２.長さ寸法(平行寸法)選択(複数可_たぶん寸法以外が含まれていても大丈夫)

変更して終了します