テーマ:
[30]
ロック化 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 動作確認済

●使い方
1.オブジェクト選択
2.基点を指定
3.左クリックで、色・線種・線の太さをByBlockにしてブロック化!
  右クリックで、オブジェクトのプロパティ変更せずブロック化!

▲注意
選択したオブジェクトは画層0になります。
ブロック名は、A$*******の任意の名前になります。

■コメント
ちょっとブロック化したい時に便利なマクロです。
適当なブロック名になるので、気にしない方にお勧め!(^^)

by totthi


AutoCAD LT2005 機械製図/間瀬 喜夫

¥2,940
Amazon.co.jp

AD
いいね!した人  |  コメント(0)  |  リブログ(0)

とってぃさんの読者になろう

ブログの更新情報が受け取れて、アクセスが簡単になります

AD

ブログをはじめる

たくさんの芸能人・有名人が
書いているAmebaブログを
無料で簡単にはじめることができます。

公式トップブロガーへ応募

多くの方にご紹介したいブログを
執筆する方を「公式トップブロガー」
として認定しております。

芸能人・有名人ブログを開設

Amebaブログでは、芸能人・有名人ブログを
ご希望される著名人の方/事務所様を
随時募集しております。