新建一个空白文本文档,然后将下面“红色”代码复制到里面并保存,将文件名以及后缀名改成unlk.lsp
--------------------------------------------------------
(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)
)
-----------------------------------------------------------------
先打开无法分解的图纸,然后找到 工具→加载应用程序,然后找到“unlk.lsp”那个文件点一下,然后点击“加载”按钮,对话框左下角提示”加载成功“,然后点击“关闭”按钮;
然后输入命令 unlk 空格,然后点一下图形,就大功告成了!
如果一次不成,就多用几次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)
)
-----------------------------------------------------------------
先打开无法分解的图纸,然后找到 工具→加载应用程序,然后找到“unlk.lsp”那个文件点一下,然后点击“加载”按钮,对话框左下角提示”加载成功“,然后点击“关闭”按钮;
然后输入命令 unlk 空格,然后点一下图形,就大功告成了!
如果一次不成,就多用几次unlk,因为用了多次引用快……
本文提供了一个LISP程序,用于解锁AutoCAD中无法通过常规方法分解的加密图形。通过加载提供的LISP文件并运行命令,可以实现对加密块的解密。
CAD多重插入块&spm=1001.2101.3001.5002&articleId=53319064&d=1&t=3&u=075660e76e6c4bbb9f6ed5cd7d12158a)
348

被折叠的 条评论
为什么被折叠?



