如何炸开（分解）CAD多重插入块

新建一个空白文本文档，然后将下面“红色”代码复制到里面并保存，将文件名以及后缀名改成unlk.lsp

--------------------------------------------------------
(defun c:unlk (/ en ent) 
(setq en (entsel "\n请选择被加密的图形:")) 
(if en 
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) 
"INSERT" 
) 
(progn 
(setq ent (entmakex 
(list '(0 . "INSERT") 
(assoc 2 ent) 
(assoc 10 ent) 
) 
) 
) 
(command "_.explode" (entlast)) 
(entdel en) 
) 
) 
) 
(princ "\nOK，解密成功。") 
(princ) 
)

-----------------------------------------------------------------
先打开无法分解的图纸，然后找到 工具→加载应用程序，然后找到“unlk.lsp”那个文件点一下，然后点击“加载”按钮，对话框左下角提示”加载成功“，然后点击“关闭”按钮；
然后输入命令 unlk 空格，然后点一下图形，就大功告成了！
如果一次不成，就多用几次unlk，因为用了多次引用快……