グレーオフセット(色変更付) [2009/11/17 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cl;8;;to;2,offset;;【色:$(getenv,cl)】--Option(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1;select;non;@;non;@;;setenv;to;4,setenv;to;3)""",,,,,)$(nth,$(getenv,to),,,offsetdist;\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,,)$(nth,$(getenv,to),,,,dist;^X--色変更(Lc)/オフセット値変更(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;cl;色番号記入^X\;to;1,setenv;to;2)""",,)$(nth,$(getenv,to),,,,,;p1;$(getvar,lastpoint);copybase;non;@;p;;setenv;to;1;id;^xオフセット方向指定^x\setenv;p2;$M="""$(getvar,lastpoint)""";;to;5;u;chprop;p;;C;$(getenv,cl);,)$(nth,$(getenv,to),,,,,,;to;1;offset;;$(getenv,p1);non;$(getvar,lastpoint);;erase;p;;pasteclip;non;$(getenv,p1))^M |
LT2004/LT2008 R2005/R2006 動作確認済
●使い方
１．オフセット値を記入（または２点指定）
２．オフセットするオブジェクトを選択 →３へ
※右クリックでOptionへ
３．オフセット方向指定 →繰り返し２へ
--Option--
・左クリックで色変更（色番号を記入してください） →使い方２へ
・右クリックでオフセット値変更 →使い方１へ
▲注意
１．マクロが長い為、カスタマイズダイアログに貼り付けできない場合は
メニューファイルに直接貼り付けてください。
■コメント
掲示板で依頼があったので作成してみました。
お試し下さい。
AutoCAD入門―よくわかる2次元&3次元CADシステム/日刊工業新聞社
￥3,360
Amazon.co.jp