円弧(２点・１接点)
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),arc;\'setenv;p1;$M="""$(getvar,lastpoint)"""^H^H;\'setenv;to;1;non;@,undo;be;setenv;p2;$(getvar,lastpoint)^H^H;circle;3p;non;@;non;$(getenv,p1);tan;\dist;non;@;cen;@;setenv;to;2,,,)$(nth,$(getenv,to),,,pline;non;@;non;$(getenv,p2);;area;o;L;ucs;ob;l;;o;$M="""$(/,$(getvar,perimeter),2)"""<0;setenv;to;3,,)$(nth,$(getenv,to),,,,ucs;z;non;0<0;cen;$(/,$(getvar,perimeter),2)<0;trim;L;;f;non;@;non;$(getvar,distance)<180;;;erase;p;;ucs;p;;p;;p;copybase;0<0;L;;undo;e;u;pasteclip;non;0<0)^M |
LT2000 動作確認済
●使い方
１．円弧の１点目指定
２．円弧の２点目指定
３．円弧に接する線分指定
▲注意
特になし･･･
■コメント
某掲示板で質問があったので作ったマクロ♪
"break"コマンド(部分削除)だと、円弧作成基点によっては
部分削除される方向が逆になる為
線分作成→UCSをあぁやってこぉやって→円弧をトリム!!
う～ん･･･
作り始めたら、結構難しいマクロでした
AutoCAD LT 2012ベーシックマスター/杢野 順子
￥2,940
Amazon.co.jp