當你拿到一個圖紙，不能修改，只能看。圖紙是一個整塊，那就是被加密了，這里是解密辦法。
將下面的代碼復制在記事本內，另存為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)
)