新建一个文本文档，名称和扩展名修改为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)
)
用CAD打开带有无法分解的多重插入块的图纸，找到 工具→加载应用程序，然后找到刚创建的unlk.lsp文件，加载；显示加载成功，然后关闭。
在CAD中输入命令：unlk，然后点需要分解的多重块；一次不成，可以多使用几次unlk命令，因为可能是多次引用了块。
