[98]
円外接円(半径・１点・外接円)

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),undo;be;dist;^X［円周接円(L)/外包接円(R)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;sw;0,setenv;sw;1)""";;to;1,;r1;半径記入^X\id;\-Layer;n;XLine;P;N;XLine;;setenv;p1;$M="""$(getvar,lastpoint)""";;to;2,,,,,)$(nth,$(getenv,to),,,offset;;^X円または円弧を選択^X\;setenv;to;2;select;non;@;non;@;;ucs;ob;non;@;id;non;@;setenv;p2;$M="""$(getvar,lastpoint)""";line;nea;@;non;0<0;;lengthen;l;;erase;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,;r2;$(if,$(getenv,sw),$(-,$(getenv,r1),$(getvar,perimeter)),$(+,$(getenv,r1),$(getvar,perimeter)));$M="""$(if,$(>,$(getenv,r2),0),setenv;to;4,undo;e;u)""",,,)$(nth,$(getenv,to),,,,,circle;non;0<0;$(getenv,r2);chprop;l;;LA;XLine;c;5;;ucs;p;setenv;to;5,,)$(nth,$(getenv,to),,,,,,circle;non;$(getenv,p1);$(getenv,r1);zoom;e;copybase;non;@;l;;chprop;l;;la;XLine;c;5;;zoom;p;setenv;to;6,pasteclip;int;^Xﾌﾞﾙｰ表示円の交点指定^X\zoom;e;copybase;non;0<0;l;;zoom;p;undo;e;u;pasteclip;non;0<0)^M

LT2000 動作確認済

●使い方
１．円周接円または円包接円をクリック選択
　　左クリック　→　円周接円
　　右クリック　→　外包接円

　　　　　　　　　　【円周接円】

　　　　　　　　　　【外包接円】

２．作図する円の半径を記入
３．通過する点を指定
４．接する円または円弧オブジェクトを選択
５．ﾌﾞﾙｰ表示円の交点を指定

※この時、途中キャンセルを行なうと、ﾌﾞﾙｰ表示の円が残ったままとなります。

▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい

２．指定した半径が小さい場合、交点の無い円が作成されることが有ります。
　　途中キャンセル後削除し、交点が出来る半径の値でやり直して下さい。

３．画層「XLine」が一旦作成されます。
　　途中キャンセルしなければ、元の画層状態に戻ります。
※尚、途中作図されるﾌﾞﾙｰ表示の円は、画層「XLine」に作成されます。
　途中キャンセルで表示されたままの場合、「3.構築線削除」マクロで削除可能です。

４．選択する円または円弧の内側に接する円は作成出来ません。

５．使い方４で、円または円弧以外を、選択しないで下さい。

■コメント
ある点を通過し、円または円弧の外側に接する円を作図するマクロです。
滅多に使うことは無いのですが、もしもの時に便利かも？

円または円弧の"内側に接する円"を作図したい場合は
「99.円接円」をお試し下さい。

AutoCAD & LT機械製図効率アップテクニック100/秀和システム

￥3,360
Amazon.co.jp

98.円外接円(半径・１点・外接円)