グループ作成/解除 [2007/3/5 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;1;;to;1,,,)$(nth,$(getenv,to),,offset;;^Xオブジェクト選択:<グループ$(if,$(getenv,sw),作成>[解除,解除>[作成)(R-click)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;2)""",,)$(nth,$(getenv,to),,,;sw;$(if,$(getenv,sw),0,1);;to;1,select;non;@;\$(if,$(getenv,sw),-group;c;*;*;p;;pickstyle;1;modemacro;【グループ選択ON】;setenv;to;1,copybase;non;0<0;p;;erase;p;;pasteclip;non;0<0;setenv;to;1))^M |
LT2000/LT2004 R2006 動作確認済
グループ選択 ON/OFF
'_setvar;pickstyle;$M=$(if,$(eq,$(getvar,pickstyle),0),1,$(if,$(eq,$(getvar,pickstyle),1),0,$(if,$(eq,$(getvar,pickstyle),2),3,2)));modemacro;【グループ選択$(if,$(getvar,pickstyle),OFF,ON)】;id;^C^Z【グループ選択$(if,$(getvar,pickstyle),OFF,ON)】^X |
LT2000/LT2004 動作確認済
●使い方
~グループ作成/解除~
・オブジェクトを選択すると、グループを作成します。
※初期設定は「グループ作成」です。
右クリックで、グループの作成⇔解除が切替わります。
~グループ ON/OFF~
・ボタンを押す度に、グループ選択のON/OFFを切替ます。
▲注意
1.選択したオブジェクトが多過ぎると、グループ作成・解除に
時間が掛かる場合が有ります。
■コメント
今さら、グループ作成と解除のマクロを1つにしただけですが・・・
一応、紹介です・・・(汗
AutoCADカスタマイズの手引き―AutoCAD LT 2000i/AutoCAD 2000i対応/ソフトバンククリエイティブ

¥2,940
Amazon.co.jp