分割（線分・円弧・円対応） [2006.10.2修正]
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pmove^P;\non;@;;non;@;non;@;setenv;to;1,explode;non;@;$M="""$(if,$(getvar,cmdactive),;setenv;to;2,undo;;setenv;to;3)""",,,,,)$(nth,$(getenv,to),,,area;o;non;@;$m="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;4);;p1;$(getvar,lastpoint)^H^H""",break;non;@;f;\non;@,break;non;@;f;\non;@;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";;to;5,,)$(nth,$(getenv,to),,,,,,copybase;non;$(getenv,p1);@;;break;non;@;f;non;$(getenv,p2);\setenv;to;6,pasteclip;non;$(getenv,p1);break;non;$(getenv,p1);f;non;$(getvar,lastpoint);non;$(getenv,p2))^M |
LT2000/LT2004 動作確認済
●使い方
１．オブジェクトを選択
２．分割するオブジェクト上の点を指定
選択したオブジェクトが円ならば３へ
３．分割するオブジェクト上の２点目を指定
▲注意
１．ブロックは選択しないで下さい
２．オブジェクトが円の場合、２点分割となります
■コメント
マクロの長さを、極力短くしました。
カスタマイズダイアログに直接貼り付け可能です。
上記のマクロで動作しない場合は
以下の「旧バージョン」をお試し下さい。
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
分割（線分・円弧・円対応）
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;setenv;to;1,explode;non;@;$M="""$(if,$(getvar,cmdactive),;setenv;to;2,undo;;setenv;to;3)""",,,,,)$(nth,$(getenv,to),,,area;o;non;@;$m="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;4);;p1;$(getvar,lastpoint)^H^H""",break;non;@;f;\non;@,,,)$(nth,$(getenv,to),,,,,break;non;@;f;\non;@;setenv;p2;$M="""$(getvar,lastpoint)^H^H""";;to;5,,)$(nth,$(getenv,to),,,,,,copybase;non;$(getenv,p1);@;;break;non;$(getenv,p1);f;non;$(getenv,p2);\setenv;p3;$M="""$(getvar,lastpoint)^H^H""";;to;6,)$(nth,$(getenv,to),,,,,,,pasteclip;non;$(getenv,p1);break;non;$(getenv,p1);f;non;$(getenv,p3);non;$(getenv,p2))^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
２．分割するオブジェクト上の点を指定
選択したオブジェクトが円ならば３へ
３．分割するオブジェクト上の２点目を指定
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
２．ブロックは選択しないで下さい
３．オブジェクトが円の場合、２点分割となります
■コメント
ほぼ全てのオブジェクト（線分・ポリライン・円弧・円）
に対応したマクロです!!
AutoCADのコツ/三角 照夫
￥3,780
Amazon.co.jp