ロック化 Ver.2013
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""id;^X基点を指定^X\setenv;to;1,,,)$(nth,$(getenv,to),,;p1;$(getvar,lastpoint);ray;^XｵﾌﾞｼﾞｪｸﾄをByBlockに変更しますか？ YES(左ｸﾘｯｸ)/NO(Enter)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;3)""",,)$(nth,$(getenv,to),,,change;p;;p;C;ByBlock;LT;ByBlock;LW;ByBlock;LA;0;;setenv;to;3,change;p;;p;LA;0;;copybase;non;$(getenv,p1);p;;erase;p;;pasteblock;@)^M |
LT2013 動作確認済
ブロック化
| *^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,CMDACTIVE),\,)"""id;^X基点を指定^X\setenv;to;1,,,)$(nth,$(getenv,to),,dist;^XｵﾌﾞｼﾞｪｸﾄをByBlockに変更しますか？ YES(左ｸﾘｯｸ)/NO(Enter)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;3)""",,)$(nth,$(getenv,to),,,change;p;;p;C;ByBlock;LT;ByBlock;LW;ByBlock;LA;0;;setenv;to;3,)$(nth,$(getenv,to),,,,change;p;;p;LA;0;;copybase;@;p;;erase;p;;pasteblock;@;setenv;to;0)^M |
LT2000 動作確認済
●使い方
１．オブジェクト選択
２．基点を指定
３．左クリックで、色・線種・線の太さをByBlockにしてブロック化！
右クリックで、オブジェクトのプロパティ変更せずブロック化！
▲注意
選択したオブジェクトは画層０になります。
ブロック名は、A$*******の任意の名前になります。
■コメント
ちょっとブロック化したい時に便利なマクロです。
適当なブロック名になるので、気にしない方にお勧め！(^^)
by totthi
AutoCAD LT2005 機械製図/間瀬 喜夫
￥2,940
Amazon.co.jp