如何炸开cad图纸里的多重插入块

用LSP程序炸开cad图纸里的多重插入块。

操作方法

（01）将以下程序复制到TXT文件中，然后另存为文件。保存如下图

（02）程序如下：;;-------------------------------------------------------------;;转换“多重插入块”为“普通块”。(DEFUN C:exm ()(setvar "cmdecho" 0)(SETQ STM (car (ENTSEL "n点取多重块")))(while stm(setq e (entget stm))(setq stlx (cdr (assoc 0 e)))(if (= stlx "INSERT")(PROGN(setq r_zm70 (assoc 70 e))(setq c_zm71 (assoc 71 e))(setq r_dist_zm44 (assoc 44 e))(setq c_dist_zm45 (assoc 45 e))(setq e (subst (cons 44 0) r_dist_zm44 e))(setq e (subst (cons 45 0) c_dist_zm45 e))(setq e (subst (cons 70 0) r_zm70 e))(setq e (subst (cons 71 0) c_zm71 e))(setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e))(entmake e)(entdel stm)))(SETQ STM (car (ENTSEL "n点取下一多重块"))))(setvar "cmdecho" 1))

（03）如图是“多重插入块”

（04）第一步：加载刚保存的文件。

（05）提示加载完成后，关闭。

（06）输入“exm"命令

（07）按提示操作，选择多重块。

（08）然后，按空格，终止命令。

（09）输入"x"打散，就OK了。

（10）效果图。