AutoCADマクロ屋本舗 掲示板

お世話になります。acm
ブロック全部分解マクロを探してます。

別の図面からデータを持ってくるときブロックダブリ対策で分解しています。
旧図からの確認用とかで、全分解してダブらない様にして分解して、全部色を赤とかの単色のブロックにでもして新図に持ってくる。
やっている方はいるとおもいますが、何度も分解をやるのも結構手間なので、スマートにボタン一発全部木っ端みじんにできないかな？と

こちら確認してください

https://totthi.bbs.fc2.com/?act=reply&tid=16700892#24326829

ありがとうございます。助かりました

別のページでR版の質問を見つけたので
setenvとgetenvを使わないでできるよう修正してみました

R版持ってないので使えるかどうかは分かりませんけどね

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

登録ボタン押すだけの操作は変わっていません

完全に自己満足

選択ブロック分解(全ブロック分解オプション付)にしてみました

*^C^C$M=useri1;0;$(nth,$(getvar,USERI1),offset;;ブロック選択(全ブロック分解はR-Click)^X\$M="""$(if,$(getvar,CMDACTIVE),;select;non;@;\,select;all;;)"""copybase;non;0<0;p;;erase;p;;point;non;0<0;^R-block;tmpbk;non;0<0;l;;useri1;1,,,,,)$(nth,$(getvar,USERI1),,-layout;d;tmplo;;n;tmplo;;s;tmplo;point;0<0;erase;all;;pasteblock;non;0<0;zoom;e;useri1;2,,,,)$(nth,$(getvar,USERI1),,,-insert;tmpbk;non;0<0;;;;useri1;5;selectsimilarmode;0;SelectSimilar;l;;select;selectsimilarmode;$M=$(getvar,SELECTSIMILARMODE);select;p;r;l;;useri1;3,,,)$(nth,$(getvar,USERI1),,,,copybase;non;0<0;p;;erase;p;;erase;l;;pasteblock;non;0<0;useri1;4,,)$(nth,$(getvar,USERI1),,,,,explode;l;^Rexplode;p;;-purge;b;*$(substr,$(getvar,insname),4);n;useri1;2,)$(nth,$(getvar,USERI1),,,,,,erase;l;;copybase;non;0<0;all;;model;pasteclip;non;0<0;-layout;d;tmplo;-purge;b;tmpbk;n;^Cuseri1;0)^M

１.マクロ起動
２.ブロック選択(全ブロック分解はR-Click)
※ブロック以外が混ざっていても問題ありません(窓選択でOK)

以上です

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