円弧 指定等分割 [2009/1/21 修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^x円弧を選択^x\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;setenv;ro;1;;to;1,;bk;分割数記入^X\pedit;l;;;area;o;l;setenv;n1;$M="""$(getvar,perimeter)""";;to;2;ucs;ob;l;select;l;,,,,,)$(nth,$(getenv,to),,,;p0;$(getvar,lastpoint);dist;nea;@;non;0<0;erase;p;;setenv;n2;$M="""$(getvar,distance)""";;to;3,;t1;$(if,$(>=,0,$(index,1,$(getenv,p0))),1,0);;to;4,,,)$(nth,$(getenv,to),,,,,;ro1;$(if,$(eq,1,$(getenv,t1)),-,)$(/,$(*,$(/,$(getenv,n1),$(getenv,bk)),180),$(*,$(getenv,n2),3.14159265));;to;5,;to;6;arc;non;$(getenv,n2)<0;c;non;0<0;a;$(getenv,ro1),)$(nth,$(getenv,to),,,,,,,-array;L;;P;non;0<0;$(getenv,bk);$(*,$(getenv,ro1),$(-,$(getenv,bk),1));y;ucs;p)^M |
LT2004/LT2009 R2005/R2006 動作確認済
●使い方
１．オブジェクトを選択
２．分割数を記入
▲注意
１．円弧以外を選択しないで下さい
２．マクロが長い為、カスタマイズダイアログに貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい
■コメント
マクロの記述で怪しい部分を、若干修正しました。
2009でも動作する模様♪
by totthi
AutoCAD 2012/AutoCAD LT 2012 公式トレーニングガイド/オートデスク株式会社
￥3,990
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
円弧 指定等分割
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;erase;p;;fillet;@;;$m="""$(if,$(getvar,cmdactive),@;,list;;)"""setenv;ro;1;;to;1,;bk;分割数記入^X\pedit;@;;;area;o;@;setenv;n1;$M="""$(getvar,perimeter)""";ucs;ob;@;select;@;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;p0;$(getvar,lastpoint);dist;nea;@;non;0","0;erase;p;;setenv;n2;$M="""$(getvar,distance)""";;to;3,setenv;t1;$(if,$(>=,0,$(index,1,$(getenv,p0))),1,0);;to;4,,,)$(nth,$(getenv,to),,,,,;ro1;$(if,$(eq,1,$(getenv,t1)),-,)$(/,$(*,$(/,$(getenv,n1),$(getenv,bk)),180),$(*,$(getenv,n2),3.14159265));;to;5,arc;$(getenv,n2)","0;c;0","0;a;$(getenv,ro1);setenv;to;6,)$(nth,$(getenv,to),,,,,,,-array;L;;P;"0,0";$(getenv,bk);$(*,$(getenv,ro1),$(-,$(getenv,bk),1));y;ucs;p)^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
２．分割数を記入
▲注意
１．円弧以外を選択しないで下さい
２．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
「50.線分 指定等分割」を作った後に
円弧も出来ないか？と依頼が有り
作成したマクロ！
結構苦労したが、動作も良く
満足出来るマクロだと思われます！(^^)/
by totthi
AutoCAD 2012/AutoCAD LT 2012 公式トレーニングガイド/オートデスク株式会社
￥3,990
Amazon.co.jp