線分両端延長マクロ [2009/6/8 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;l1;延長値記入^X\;to;1,offset;;^Xオブジェクト選択：延長値<$(getenv,l1)>【延長値変更(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;2,id;)""",,)$(nth,$(getenv,to),,,;to;3;;so;$(getvar,sortents);sortents;127;copy;p;;non;@;non;@;erase;p;;ucs;ob;l;lengthen;l;,;to;1;lengthen;de;$(getenv,l1);non;0.01<0;non;$(-,$(getvar,perimeter),0.01)<0;;ucs;p;sortents;;$(getenv,so))^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．延長値記入
２．オブジェクト選択 繰り返し２へ
※この時、右クリックで１へ
▲注意
１．線分以外を選択しないで下さい。
※ポリラインには対応していません。
■コメント
本掲示板にて、作成依頼がありましたので
作成してみました。
AutoCAD LT2013機械製図/理工学社
￥2,982
Amazon.co.jp