AutoCADマクロ屋本舗 掲示板

モデル空間上に置かれているすべてのブロックを分解したいです。
寸法やポリラインは分解せずに
ブロックがなくなるまで分解し続けるマクロの作成をお願いできないでしょうか？

バージョンは2017のLTです。
よろしくお願いします。

ちょっとだけ・・

ブロックだけってのは無理ですね。
モデル空間内全てのオブジェクトなら出来るかもです。

あまり自信は無いですが
出来たらラッキー程度でお試しください

LT2022の新規図面に数点のブロックと数点の矩形で試しています

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;bcm;$(getvar,BLOCKCREATEMODE);;ssm;$(getvar,SELECTSIMILARMODE);blockcreatemode;0;selectsimilarmode;0;setenv;to;1,,,,,,,)$(nth,$(getenv,to),,point;non;0<0;^R-block;tmpbk;non;0<0;l;;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;erase;l;;setenv;to;2,,,,,,)$(nth,$(getenv,to),,,-layout;d;tmplo1;;n;tmplo1;;s;tmplo1;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;setenv;to;3,,,,,)$(nth,$(getenv,to),,,,;to;7;select;l;;copybase;non;0<0;l;;erase;l;;-layout;d;tmplo2;;n;tmplo2;;s;tmplo2;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,-insert;tmpbk;non;0<0;;;;setenv;to;6;selectsimilarmode;0;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;;l;;pasteblock;non;0<0;setenv;to;5,,,)$(nth,$(getenv,to),,,,,,explode;l;^Rexplode;p;;setenv;to;4,,)$(nth,$(getenv,to),,,,,,,erase;l;;copybase;non;0<0;all;;model;pasteclip;non;0<0;-layout;s;tmplo1;setenv;to;3,)$(nth,$(getenv,to),,,,,,,,model;blockcreatemode;$(getenv,bcm);selectsimilarmode;$(getenv,ssm);-layout;d;tmplo1;;d;tmplo2;-purge;b;tmpbk;n;^Csetenv;to;0)^M

操作はマクロの登録ボタンを押すだけです

※、仮に『tmpbk』の名前でブロックを使用しています
※、仮に『tmplo1』と『tmplo2』の名前でレイアウトを使用しています
上記名前ですでに使用している場合にはマクロ内の同名称をすべて変更してください

また、数が多いとかなりの時間フリーズしたような状態が続きます
お試しの場合はブロックの数は少ないデータで
お試しになられることをお勧めします

自分のバージョンだと
BLOCKCREATEMODEがないみたいです。

失礼しました
BLOCKCREATEMODE <2022の新機能でした

修正してみました
※LT2021とLT2019では試しています
追記、別PCのLT2015でも試してみました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ssm;$(getvar,SELECTSIMILARMODE);selectsimilarmode;0;setenv;to;1,,,,,,,)$(nth,$(getenv,to),,point;non;0<0;^R-block;tmpbk;non;0<0;l;;-insert;tmpbk;non;0<0;;;;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;erase;l;;setenv;to;2,,,,,,)$(nth,$(getenv,to),,,-layout;d;tmplo1;;n;tmplo1;;s;tmplo1;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;setenv;to;3,,,,,)$(nth,$(getenv,to),,,,;to;7;select;l;;copybase;non;0<0;l;;erase;l;;-layout;d;tmplo2;;n;tmplo2;;s;tmplo2;point;0<0;erase;all;;pasteclip;non;0<0;zoom;e;setenv;to;4,,,,)$(nth,$(getenv,to),,,,,-insert;tmpbk;non;0<0;;;;setenv;to;6;selectsimilarmode;0;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;;l;;pasteblock;non;0<0;setenv;to;5,,,)$(nth,$(getenv,to),,,,,,explode;l;^Rexplode;p;;setenv;to;4,,)$(nth,$(getenv,to),,,,,,,erase;l;;copybase;non;0<0;all;;model;pasteclip;non;0<0;-layout;s;tmplo1;setenv;to;3,)$(nth,$(getenv,to),,,,,,,,model;selectsimilarmode;$(getenv,ssm);-layout;d;tmplo1;;d;tmplo2;-purge;b;tmpbk;n;^Csetenv;to;0)^M

省略化できました
早くなったと思います

Lt2021で試しています

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ssm;$(getvar,SELECTSIMILARMODE);selectsimilarmode;0;setenv;to;1,,,,,)$(nth,$(getenv,to),,point;non;0<0;^R-block;tmpbk;non;0<0;l;;-insert;tmpbk;non;0<0;;;;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;erase;l;;setenv;to;2,,,,)$(nth,$(getenv,to),,,-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteblock;non;0<0;zoom;e;setenv;to;3,,,)$(nth,$(getenv,to),,,,explode;l;^Rexplode;p;;-purge;b;*$(substr,$(getvar,insname),4);n;setenv;to;4,,)$(nth,$(getenv,to),,,,,-insert;tmpbk;non;0<0;;;;setenv;to;5;selectsimilarmode;0;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;;l;;pasteblock;non;0<0;setenv;to;3,)$(nth,$(getenv,to),,,,,,erase;l;;copybase;non;0<0;all;;model;pasteclip;non;0<0;selectsimilarmode;$(getenv,ssm);-layout;d;tmplo;-purge;b;tmpbk;n;^Csetenv;to;0)^M

※、仮に『tmpbk』の名前でブロックを使用しています
※、仮に『tmplo』の名前でレイアウトを使用しています
上記名前ですでに使用している場合にはマクロ内の同名称をすべて変更してください

10:45ちょっと修正、途中の任意ブロック名の削除を追加しました

また余計な事してたみたいです
仮レイアウト必要なかったです

さらに省略できました

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ssm;$(getvar,SELECTSIMILARMODE);selectsimilarmode;0;point;non;0<0;^R-block;tmpbk;non;0<0;l;;setenv;to;1,,,)$(nth,$(getenv,to),,-insert;tmpbk;non;0<0;;;;setenv;to;3;SelectSimilar;l;;select;;p;r;l;;copybase;non;0<0;p;;erase;p;;erase;l;;pasteblock;non;0<0;setenv;to;2,,)$(nth,$(getenv,to),,,explode;l;^Rexplode;p;;-purge;b;*$(substr,$(getvar,insname),4);n;setenv;to;1,)$(nth,$(getenv,to),,,,erase;l;;selectsimilarmode;$(getenv,ssm);-purge;b;tmpbk;n;^Csetenv;to;0)^M

※、仮に『tmpbk』の名前でブロックを使用しています
上記名前ですでに使用している場合にはマクロ内の同名称をすべて変更してください

ありがとうございます。
理想通りのものでした。
動作も一瞬で最高です。

ちなみに、参考までに教えて頂きたいのですが、
なぜ一度コピペしてから分解するのでしょうか？

>コピペしてから分解
作っている過程で仮のレイアウトを使っていた名残です

試していませんが
もしかしたらなくてもできるかもです
もしできるようなら参考にでもアップしておきます

無理みたいですね

仮ブロックの類似オブジェクト選択として図面内のブロックを選択しています

選択した図面内のブロックを分解する為に選択オプションの『P』が必要です
ここで仮に挿入した仮ブロックを一緒に分解するわけにはいかないので
分解前に仮ブロックを削除する必要があります

仮ブロック挿入
↓
仮ブロックと類似オブジェクトとして図面内のブロックを選択
↓
図面内のブロックをクリップボードにコピー
↓
図面内のブロックを削除
↓
仮ブロックを削除
↓
クリップボードからブロックとして挿入
↓
挿入したブロックを分解(Ｌ選択)
↓
図面内のブロックを分解(Ｐ選択)

と繰り返しているので
コピペ無しでやろうとすると
仮ブロックを削除した段階で
選択オプションの『P』が無くなってしまい
その後の分解でＰ選択ができなくなります

よって
コピーで一旦図面から削除してからペーストする必要があります

あくまで自分が考えたこのマクロではコピペは必須です

なるほど！
そういうことだったのですね。

あとto;3;のところは
select;;p;r;l;;で選択総数が0だと
以降はスキップされる。
という認識であっていますでしょうか？

>認識であっていますでしょうか？
合っていると思います(苦笑)
というのも自分もこちらの『マクロ講座』で勉強させていただいたまま利用しておりますので
ただただ面白い仕様だなぁと思っております

また、AutoCAD特有の仕様の様です
互換CADではこのような動作はしないと聞いたことがあります(多分こっちが常識的?な仕様)


こちらでもちょっといじってますので参考までに
https://totthi.bbs.fc2.com/?act=reply&tid=16713388#24362597

ありがとうございました。
勉強になりました。