楼主的方法我试过了,确实能解密加密的图!操作步骤我来简单说一下: 先把下面这段代码复制到记事本里,然后保存为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) ) 亲测有效,感谢原作者分享!
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号