線分 指定等分割
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),fillet;^X\;$M="""$(if,$(getvar,cmdactive),@;setenv;to;1,setenv;to;0)""",;fv;0;;bk;分割数^X\explode;@;$M="""$(if,$(getvar,cmdactive),;,)"""ucs;ob;@;pedit;@;;;area;o;@;copybase;"0,0";L;;erase;P;;setenv;to;2,,,)$(nth,$(getenv,to),,,;p1;$(/,$(getvar,perimeter),$(getenv,bk));;to;3,line;0","0;$(getenv,p1)","0;;select;L;;pasteclip;$(getenv,p1)","0;matchprop;L;p;;erase;L;;setenv;to;4,)$(nth,$(getenv,to),,,,,-array;L;;R;1;$(getenv,bk);$(getenv,p1);ucs;p)^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
２．分割数を記入
▲注意
１．線分以外を選択しないで下さい
(但し、rectangコマンドで作成された四角やポリラインを選択すると、分解されます)
■コメント
マクロ依頼があり作成したマクロ！
動作も早目で、マクロとしては満足出来るはず！(^^)
by totthi
AutoCAD 入門&実践バイブル/久原 裕
￥4,410
Amazon.co.jp