炸开CAD中“多重插入引用”的方法

今天一到公司就遇到了这个问题（虽然今天我迟到了）然后我就上网搜解决方法，看到了一个人的博客上面有关于这个的东西，看了，有的试了，有的看了就觉得不适用。结果是用这个完成的。

将下面的代码复制在记事本内，另存为unlk.lsp文件，打开这张不能修改的图纸，命令appload选择加载程序文件unlk.lsp，命令行键入unlk，选择不能修改的图形。。。

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

用这个我的图就被炸开了