95.現在画層以外グレー表示 | AutoCADマクロ屋本舗
[95]
現在画層以外グレー表示
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-layer;n;Damy;;dist;^X【現在画層以外グレー(L)/画層状態復元(R)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,setenv;to;3)""",,,)$(nth,$(getenv,to),,-layer;a;d;AAA;;;;;a;s;AAA;;;;-layer;LO;$(getvar,CLAYER);;graphscr;setenv;to;2,,)$(nth,$(getenv,to),,,copy;all;;non;0<0;non;0<0;chprop;p;;c;8;la;Damy;;dimoverride;dimclre;8;dimclrt;8;dimclrd;8;;p;;-layer;OF;*;n;ON;Damy;LO;Damy;U;$(getvar,clayer);;^Cid;^Z,)$(nth,$(getenv,to),,,,-layer;LO;*;U;Damy;;erase;all;;-layer;a;r;AAA;;;-la;a;d;aaa;;;^Cid;^Z)^M


LT2002/LT2004 動作確認済 ※バージョン2000以前は使用不可

●使い方
1)左クリックすると 現画層以外をグレーにします。
 ※実際には、現在画層以外の全てのオブジェクトを
  画層「Damy」にコピーし、現在画層と画層Damy以外を非表示にし
  画層Damyのオブジェクトをグレーにしてます。


 その後、再度ツールボタンを押し、右クリックすると
 画層Damyのグレー表示されたオブジェクトを削除し
 画層状態を元に戻します。

▲注意
1.バージョン2000i以降で御使用下さい。
  2000以前のバージョンでは使用出来ません。
2.現在画層以外をグレー表示にせず、右クリックをしないで下さい。
  画層状態は復元されません。
3.現在画層以外をグレー表示にした後、右クリックで元に戻さず
  誤って左クリックをした場合は、元に戻す「UNDO」で戻してください。
4.マルチテキストの文字自体に色を設定している場合
  グレー表示にはなりません。

■コメント
掲示板で依頼があったので作成してみました。
自分のバージョンはLT2000なので、色々な方に検証して頂きました。
感謝♪


デザインの学校 これからはじめるAutoCADの本  AutoCAD/AutoCAD LT 2.../技術評論社

¥2,499
Amazon.co.jp