現在画層オフセット [2007/9/28 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,offset;;【変更(Rc)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;2,id;)""",,,)$(nth,$(getenv,to),,,copy;p;;non;@;non;@;erase;p;;setenv;p0;$M="""$(getvar,lastpoint)""";;to;3;id;non,;p1;$(getvar,lastpoint);copybase;non;0<0;l;;chprop;l;;la;$(getvar,clayer);;setenv;to;4,)$(nth,$(getenv,to),,,,,offset;non;$(getvar,offsetdist);non;$(getenv,p0);non;$(getenv,p1);;erase;p;;pasteclip;non;0<0;setenv;to;1)^M |
LT2004 R2005 動作確認済
●使い方
１．オフセット値を記入
または２点指定
２．オフセットするオブジェクトを選択
この時、右クリックにてオフセット値変更 →１へ
３．オフセットする方向を指定
～繰返し２へ～
▲注意
１．クリップボードへのコピー/貼り付けを使用しています。
２．"オフセットする方向を指定"時、オフセットオブジェクトを画面外にしないで下さい。
■コメント
今さらなマクロですが、要望のよくあるマクロですので
とりあえずUPしておきます。参考までに♪
特に現在画層へのオフセットが必要無い場合は
その他の"オフセット"マクロを参照ください。
DVDで学ぶAutoCAD LT［2005～2011］ (エクスナレッジムック DVDだから絶.../エクスナレッジ
￥2,940
Amazon.co.jp