AutoCADマクロ屋本舗 掲示板

こんにちは。
文字高切替マクロの際は
大変お世話になり、ありがとうございました。
もう1つお力を貸していただきたく投稿いたしました。
ACAD2017使用です。

添付画像のように1Rの90°エルボを描く際に、
毎回円を一つずつ描いてトリムしております。
この円を一発で描けるマクロは御座いますでしょうか？
(添付画像はφ300のエルボを例として描いています。)

添付画像で例えますと、
R300に対して
R150,R450の円も自動で描けるような...

どうぞ、宜しくお願い致します。

座標で描かせるだけです。


*^C^Csetenv;r1;\ucs;o;\arc;c;non;0<0;non;$M=$(/,$(getenv,r1),2)<0;non;$(/,$(getenv,r1),2)<90;;c;non;0<0;non;$(getenv,r1)<0;non;$(getenv,r1)<90;;c;non;0<0;non;$(*,$(getenv,r1),1.5)<0;non;$(*,$(getenv,r1),1.5)<90;line;non;$(/,$(getenv,r1),2)<0;non;$(*,$(getenv,r1),1.5)<0;;;non;$(/,$(getenv,r1),2)<90;non;$(*,$(getenv,r1),1.5)<90;;ucs;p^M

こんな方法でもできそう

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;lr1;中心半径指定：^X\;lw1;エルボ径指定：^X\id;\setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,,,,,)$(nth,$(getenv,to),,ucs;o;$(getenv,p1);arc;c;non;0<0;non;$(+,$(getenv,lr1),$(/,$(getenv,lw1),2))<N;non;1<W;select;l;;setenv;to;2,,,,)$(nth,$(getenv,to),,,pickbox;0;offset;$(/,$(getenv,lw1),2);end;$(+,$(getenv,lr1),$(/,$(getenv,lw1),2))<N;non;0<0;;select;p;l;;pickbox;$(getvar,pickbox);setenv;to;3,,,)$(nth,$(getenv,to),,,,pickbox;0;offset;$(getenv,lw1);end;$(+,$(getenv,lr1),$(/,$(getenv,lw1),2))<N;non;0<0;;select;p;l;;pickbox;$(getvar,pickbox);setenv;to;4,,)$(nth,$(getenv,to),,,,,line;non;$(+,$(getenv,lr1),$(/,$(getenv,lw1),2))<N;non;@$(getenv,lw1)<S;;select;p;l;;line;non;$(+,$(getenv,lr1),$(/,$(getenv,lw1),2))<W;non;@$(getenv,lw1)<E;;select;p;l;;setenv;to;5,)$(nth,$(getenv,to),,,,,,ray;^x90°回転(L-Click)／決定(R-Click)：^X\$M="""$(if,$(getvar,cmdactive),;rotate;p;;non;0<0;90;setenv;to;5,ucs;p;setenv;to;0;^Cid;)""")^M

１.中心の半径を指定
２.エルボの径を指定
３.Ｒの中心位置を指定
おまけ（ただの自己満足です)
４.左クリックで９０度づつ回転、右クリックで終了
です

LT2017で確認です

とってぃ様

ありがとうございます！
こんなにも簡単に描けるようになるとは感動です。

chibi-tom様

昨日に引き続きありがとうございます！
1Ｒ以外の時にも活用できそうです。