AutoCADマクロ屋本舗 掲示板

いまだに･･･ですがLT2004ユーザーです。
ご教授お願いいたします。

IF文にて処理の分岐を行いたいのですが･･･
ブロック挿入した図形を1つ選択したときと複数選択して
XPLODEで画層名、色、線種の指定での分解の処理を
1つのツールボタンで行いたいと思います。

よろしくお願いいたします。

オブジェクトの指定での選択に関しては
マクロでは不可能です。

マクロは、コマンドを羅列するだけの
簡易的なプログラムですので。

図面内のオブジェクト指定選択の場合は
クイック選択かフィルター選択で行うのが通常です。
一度お試し下さい。

とってぃ様

お返事ありがとうございます。
遅くなって申し訳ありません。

マクロでは不可能なんですね･･･

DIESEL式だと可能なのでしょうか。
こちらもド素人なもので申し訳ありません。

よろしくお願いいたします。

マクロ初心者さん

勘違いしていました。
xplodeならできますね。

ただし、xplode自体に、コマンドオプションで
画層名、色、線種の指定が可能ですよ。

マクロにしてもしなくても、操作性はあまり変わらないように思いますがいかがでしょうか。

ちなみに
マクロ＝DIESELマクロです。

とってぃ様

お返事ありがとうございます。

ブロックが1つの場合
xplodeのオプションで画層名、色、線種の指定をします。

ブロックが複数の場合
xplodeのオプションで個別/一括の区別が出てきます。

別々のボタンでのマクロは作ることができたのですが、
1つのボタンで出来るようにしたいと考えております。
IF文で処理を変えることはできないのでしょうか。

よろしくお願いいたします。

マクロ初心者さん

ブロックが１つの場合と複数の場合で
どのような処理をしたいのでしょうか？
いまいち理解しておりません。

どの様な分岐をお望みでしょうか。

とってぃ様

お返事ありがとうございます。
遅くなり申し訳ありません。

ブロックが1つの場合
xplodeのオプションで
画層は現在層
色、線種はByLayer
での分解処理をしたいと考えています。

ブロックが複数の場合
xplodeのオプションで
個別ではなく常に一括
画層は現在層
色、線種はByLayer
での分解処理をしたいと考えています。

個別にボタンを作成すれば済んでしまうことなんですが
少しでも操作の煩わしさを解消したくて･･･

説明不足な上、何度も申し訳ありません。

作ってみました。


♪分解（画層：現在層 色・線種：ByLayer）
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\$M="""$(if,$(getvar,cmdactive),\,)"""undo;be;copybase;non;0<0;p;;erase;p;;-layout;d;XPD;setenv;to;1,;to;2;;cv;$(getenv,CreateViewports);;CreateViewports;0;-layout;n;XPD;;s;XPD;pasteblock;non;0<0;zoom;a;explode;l,,)$(nth,$(getenv,to),,,;to;3;xplode;p;;;$M="""$(if,$(getvar,cmdactive),;,)"""chprop;all;;LA;$(getvar,clayer);C;ByLayer;LT;ByLayer;;copybase;non;0<0;all;;-layout;s;Model;pasteclip;non;0<0;-layout;s;XPD,)$(nth,$(getenv,to),,,,-layout;s;Model;;d;XPD;setenv;CreateViewports;$(getenv,cv))^M

LT2004にて動作確認済み

●使い方
１．オブジェクト選択

▲注意
１．ﾚｲｱｳﾄ"XPD"をﾀﾞﾐｰで作成し、削除しています。
　　通常使用されるﾚｲｱｳﾄが同じ名前の場合、マクロ中の"XPD"を変えてお使いください。
２．ﾓﾃﾞﾙ空間内のｵﾌﾞｼﾞｪｸﾄを選択して下さい。

とってぃ様

マクロを作成していただき、ありがとうございます。

ですが･･･
マクロをコピペにて登録しようとしたのですが
最後まで入りきらないんです。
登録の仕方が間違っているのでしょうか。

カスタマイズ→ボタンプロパティ内のマクロに登録で
間違いないですよね？
違う方法があるのでしょうか。

よろしくお願いいたします。

ﾊﾞｰｼﾞｮﾝ2005までの場合

長いマクロはカスタマイズダイアログに貼り付けできない事が多いです。

その為、当HP右メニュー

●メニューファイルに直接張付ける方法
http://ameblo.jp/totthi-macro/entry-10895260108.html

こちらを参照願います。

とってぃ様

「メニューファイルに直接張付ける方法」を確認しながら
登録することに成功いたしました。

早速使ってみました。
思っていた処理で満足しております。
ありがとうございました。

1つだけお願いが･･･
ブロック登録時の操作ミスなのか分からないのですが
処理の終了後にポリラインとして残ってしまうようです。
大変申し訳ないのですが、この処理を行って繰り返しの前に
EXPLODEを追加することは可能でしょうか。

何度も申し訳ありません。
よろしくお願いいたします。

とりあえず作ってみました。
お試しください。

♪分解（画層：現在層 色・線種：ByLayer）２
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\$M="""$(if,$(getvar,cmdactive),\,)"""undo;be;copybase;non;0<0;p;;erase;p;;-layout;d;XPD;setenv;to;1,;to;2;;cv;$(getenv,CreateViewports);;CreateViewports;0;-layout;n;XPD;;s;XPD;pasteblock;non;0<0;zoom;a;explode;l,,)$(nth,$(getenv,to),,,;to;3;xplode;p;;;$M="""$(if,$(getvar,cmdactive),;,)""";p;;chprop;all;;LA;$(getvar,clayer);C;ByLayer;LT;ByLayer;;copybase;non;0<0;all;;-layout;s;Model;pasteclip;non;0<0;-layout;s;XPD,)$(nth,$(getenv,to),,,,-layout;s;Model;;d;XPD;setenv;CreateViewports;$(getenv,cv))^M