把下面的代码存成 unlk.lsp打开记事本把下面复制进去，保存成 unlk.lsp 如果你保存成 unlk.txt，就自己改下后缀名就可以了 (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) )1， 在 autocad 中，打开要加密的图纸。2，点击 autocad 菜单 “工具” “加载应用程序” ，加载 unlk.lsp。3，加载后会出现提示对话框，点确定。4，在 autocad 中，键入 unlk，回车，选择要解密的图形，回车。.
