73.指定画層ロック/ロック解除 | AutoCADマクロ屋本舗
[73]
指定画層ロック/ロック解除 2013 [2016.1.11追加]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;1;;to;1,offset;;^Xオブジェクトを選択:【$(if,$(getenv,sw),画層ロック】[ロック解除,ロック解除】[画層ロック)(Rc)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;4)""",,,)$(nth,$(getenv,to),,,ai_molc;@;setenv;la;$M="""$(getvar,clayer)""";-layer;s;$(getvar,clayer);;setenv;to;3,expert;5;-layer;$(if,$(getenv,sw),LO,U);$(getenv,la);;expert;0;setenv;to;1,)$(nth,$(getenv,to),,,,,;sw;$(if,$(getenv,sw),0,1);;to;1)^M

LT2013 動作確認済


指定画層ロック/ロック解除[ミスピック対応] [2007.1.10修正]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;tx1;画層ロック;;tx2;ロック解除;;sw;1;;sw2;0;;to;1,,,,,)$(nth,$(getenv,to),,;tx0;オブジェクトを選択:$(if,$(getenv,sw2),<$(getenv,la)>,)$(if,$(getenv,sw),$(getenv,tx1)--$(getenv,tx2),$(getenv,tx2)--$(getenv,tx1))(Rc)--;;to;2,,,,)$(nth,$(getenv,to),,,lengthen;^X$(getenv,tx0)^X\;$M="""$(if,$(getvar,cmdactive),;setenv;to;5;;sw2;0,setenv;to;2;select;non;@;non;@;;setenv;to;3;;sw2;1)""",,,)$(nth,$(getenv,to),,,,ai_molc;@;setenv;la;$M="""$(getvar,clayer)""";-layer;s;$(getvar,clayer);;setenv;to;4,expert;5;-layer;$(if,$(getenv,sw),LO,U);$(getenv,la);;expert;0;setenv;to;1,)$(nth,$(getenv,to),,,,,,;sw;$(if,$(getenv,sw),0,1);;to;1)^M

LT2000 動作確認済


●使い方
1.オブジェクトを選択 ※初期設定【画層ロック】
 ※右クリックで【画層ロック】⇔【ロック解除】を切替!!

▲注意
1.マクロが長い為、カスタマイズダイアログに張りつけ出来ない場合は
  メニューファイルに直接貼り付けて下さい。

■コメント
前バージョンでは、ミスピックに対応しておらず
選択時に、オブジェクトにヒットしない場合
現在画層がロック/ロック解除されていた部分を修正!!

尚、ロック/ロック解除された画層名が
コマンドライン上に、表示されるように追加編集しました。


デザインの学校 これからはじめるAutoCADの本  AutoCAD/AutoCAD LT 2.../稲葉 幸行

¥2,499
Amazon.co.jp



↓↓↓前バージョン↓↓↓

指定画層ロック/ロック解除[ミスピック未対応]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;1;;to;1,lengthen;^Xオブジェクトを選択:【$(if,$(getenv,sw),画層ロック】[ロック解除,ロック解除】[画層ロック)(R-Click)]^X\;$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;2)""",,,)$(nth,$(getenv,to),,,ai_molc;@;setenv;la;$M="""$(getvar,clayer)""";-layer;s;$(getvar,clayer);;setenv;to;3,expert;5;-layer;$(if,$(getenv,sw),LO,U);$(getenv,la);;expert;0;setenv;to;1,)$(nth,$(getenv,to),,,,,;sw;$(if,$(getenv,sw),0,1);;to;1)^M


LT2000 動作確認済


●使い方
1.オブジェクトを選択 ※初期設定【画層ロック】
 ※右クリックで【画層ロック】⇔【ロック解除】を切替!!

▲注意
1.ミスピック未対応の為、選択時は注意して下さい。

■コメント
指定したオブジェクトの画層を
ロック/ロック解除するマクロです♪


デザインの学校 これからはじめるAutoCADの本  AutoCAD/AutoCAD LT 2.../稲葉 幸行

¥2,499
Amazon.co.jp