AutoCADマクロ屋本舗 掲示板

円中心線十字マクロ
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;CENTER;;offset;;\;select;non;@;non;@;;line;nea;@;cen;@;;lengthen;dy;;;l;;;erase;l;;setenv;to;1,;p0;$(*,$(getvar,dimscale),6);;l1;$(getvar,perimeter);;to;2;ucs;o;$(getvar,lastpoint),,)$(nth,$(getenv,to),,,;to;3;line;non;-$(+,$(getenv,p0),$(getenv,l1))<0;non;$(+,$(getenv,p0),$(getenv,l1))<0;;chprop;l;;LA;CENTER;LT;ByLayer;C;ByLayer;,copy;l;;non;@;non;@;rotate;l;;0<0;90;ucs;p)^M

座標マクロ

*^C^C_id;\$M=;;_ucs;w;_leader;$(getvar,LASTPOINT);\;X=$(rtos,$(index,0,$(getvar,LASTPOINT)));Y=$(rtos,$(index,1,$(getvar,LASTPOINT)));Z=$(rtos,$(index,2,$(getvar,LASTPOINT)));;ucs;p;scaletext;l;;^M10

以上のマクロを一括に出来ないでしょうか
一連の流れとして円のオブジェクト触れて円中心に十字線作図・座標表示引出線と言う流れで宜しくお願いいたします。

バージョンを書き忘れてました2019LTです

こんな感じでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;CENTER;;offset;;\;select;non;@;non;@;;line;nea;@;cen;@;;lengthen;dy;;;l;;;erase;l;;setenv;to;1,;p0;$(*,$(getvar,dimscale),6);;l1;$(getvar,perimeter);;to;2;ucs;o;$(getvar,lastpoint),,)$(nth,$(getenv,to),,,;to;3;line;non;-$(+,$(getenv,p0),$(getenv,l1))<0;non;$(+,$(getenv,p0),$(getenv,l1))<0;;chprop;l;;LA;CENTER;LT;ByLayer;C;ByLayer;,copy;l;;non;@;non;@;rotate;l;;0<0;90;id;non;0<0;ucs;p;id;non;@;setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;w;_leader;$(getvar,LASTPOINT);\;X=$(rtos,$(index,0,$(getvar,LASTPOINT)));Y=$(rtos,$(index,1,$(getvar,LASTPOINT)));Z=$(rtos,$(index,2,$(getvar,LASTPOINT)));;scaletext;l;;;10;setenv;to;0)^M

早々のマクロありがとうございます
座標数値の大きさを10mmに固定する場合も宜しくお願いいたします
お手数おかけします

失礼しました

UCSを戻す工程を1つ余計にして止まってしまってました

修正しましたのでコピペし直してみてください

ほんとに助かりました
有り難うございました