AutoCADマクロ屋本舗 掲示板

マクロ初心者ですが、いつも勉強させて頂きお世話になっております。
円の中心線を記入するマクロで、下記を使っているのですが、条件を変えて
修正していただくことは可能でしょうか。ご検討を宜しくお願いいたします。

1.Layer：現在のLayer
2.線色　：RED
3.線種　：CENTER
4.中心線の長さ：直径の1.3倍　 或いははみ出し長さ：直径の0.15倍

使用CADのバージョンは LT2012 です。


*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;CENTER;;offset;;\;select;non;@;non;@;;line;nea;@;cen;@;;lengthen;l;;erase;l;;setenv;to;1,;p0;$(*,$(getvar,dimscale),1.5);;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$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;line;nea;@;cen;@;;lengthen;l;;erase;l;;setenv;to;1,;l1;$(getvar,perimeter);;to;2;ucs;o;$(getvar,lastpoint),,)$(nth,$(getenv,to),,,;to;3;line;non;-$(*,$(getenv,l1),1.3)<0;non;$(*,$(getenv,l1),1.3)<0;;chprop;l;;LT;CENTER;C;1;,copy;l;;non;@;non;@;rotate;l;;0<0;90;ucs;p)^M

元のマクロと見比べてみてください。

とってぃ様

希望通りのマクロにしていただき、有難うございます。
マクロを勉強し始めて日が浅いので、なかなかマクロを読み解けない
のですが、修正前と後を比べてみると、何となく線長・線種・線色の
指示の違いが分かりました。
無知をさらす様で恥ずかしいのですが、「現在のレイヤ」というのは
どう指示しているのでしょうか？

現在のレイヤは、描く時に既に指定している画層ですので
マクロ上で指定する必要はありませんよ。

とってぃ様

なるほど、そうなんですね。

仕事の合間に少しずつですが勉強して、早くマクロを読んだり
いじったりできる様になりたいです。有難うございました。

実際の操作をそのまま動かすのがマクロです。
一度、当HPのマクロ講座を参照してみてくださいね。

とってぃ様

有難うございます。
こちらの「マクロ講座」を何度か覗いたことがあります。難しくてくじけそうでしたが、最初からじっくりと読ませていただきたいと思います。