直接进入主题,方法如下:
1,将下面的代码复制在记事本内,
2,另存为unlk.lsp文件(或所以文件),
3,打开这张不能修改的图纸,
4,命令appload选择加载程序文件unlk.lsp,
5,命令行键入unlk,选择不能修改的图形。
以下为代码:
(setq en (entsel "\n请选择被加密的图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
" "
)
(progn
(setq ent (entmakex
(list ''(0 . " ")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(comm "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK,解密成功。")
(princ)
)