両側オフセット[ByLayer] 2013 [2014.1.22 追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,offset;;\;setenv;to;1;select;non;@;non;@;;$M="""ucs;3;nea;$(getvar,lastpoint)""";mid+endp+cen;@;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;so;$(getvar,sortents);sortents;127;offsetdist;$(/,$(getvar,offsetdist),2);copy;p;;non;@;non;@;chprop;L;;LA;$(getvar,clayer);LT;Bylayer;C;ByLayer;;copybase;non;@;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,undo;be;explode;l;$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;sw;1;;to;5)""",area;o;l;$M="""$(if,$(getvar,cmdactive),;setenv;sw;1,setenv;sw;0)""";;to;5,,)$(nth,$(getenv,to),,,,,,undo;e;u;select;non;0<0;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),90,0);;copy;p;;non;@;non;@;erase;p;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,select;l;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),-90,180);;;$(*,$(getvar,offsetdist),2);;erase;p;;ucs;p;sortents;$(getenv,so))^M |
LT2013 動作確認済
両側オフセット[ByLayer] [2008.5.8 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,offset;;\;setenv;to;1;select;non;@;non;@;;ucs;3;nea;@;mid+endp+cen;@;;setenv;to;2,,,,,)$(nth,$(getenv,to),,,;so;$(getvar,sortents);sortents;127;offsetdist;$(/,$(getvar,offsetdist),2);copy;p;;non;@;non;@;chprop;L;;LA;$(getvar,clayer);LT;Bylayer;C;ByLayer;;copybase;non;@;l;;setenv;to;3,,,,)$(nth,$(getenv,to),,,,undo;be;explode;l;$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;sw;1;;to;5)""",area;o;l;$M="""$(if,$(getvar,cmdactive),;setenv;sw;1,setenv;sw;0)""";;to;5,,)$(nth,$(getenv,to),,,,,,undo;e;u;select;non;0<0;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),90,0);;copy;p;;non;@;non;@;erase;p;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,select;l;;offset;;non;0<0;non;$(/,$(getvar,offsetdist),2)<$(if,$(getenv,sw),-90,180);;;$(*,$(getvar,offsetdist),2);;erase;p;;ucs;p;sortents;$(getenv,so))^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．オフセット間隔を記入
または、２点指定
２．オフセットするオブジェクトを選択
▲注意
１．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
以前どこかで作ったマクロですｗ
線種・線の色を、ByLayerで現在画層に両側オフセットするマクロです
なんだか文字数多いのが気になりますが、とりあえずＵＰです(^^;
はじめて学ぶAutoCAD LT 2009 作図・操作ガイド/ソーテック社
￥2,499
Amazon.co.jp