cad炸开多重引用插入

要炸开cad的多重插入块，首先的自己制作一个插件。将下面的内容复制到txt文档中

;;-------------------------------------------------------------

;;转换“多重插入块”为“普通块”。

(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)

)

将文档另存为 exm.lsp

在cad中加载

加载成功后 输入exm命令 选择你要炸开的块 然后输入x

就可以了

;;-------------------------------------------------------------

;;转换“多重插入块”为“普通块”。


这一段内容需要加入吗