円外接円(半径・１点・外接円)
| *^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