我以前网上查的,实用,就是麻烦了点,将下面的代码复制在记事本内,另存为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) )