1. 将下面的代码复制在记事本内,另存为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)
)
2. 用 AutoCAD 打开无法炸开的图纸,选择菜单“工具”——“加载应用程序”,打开“加载、卸载应用程 序”对话框,在对话框里找到并点选那个名为 “unlk.lsp”的文件,依次点击“加载”、“关闭”按钮,关 闭对话框。
3. 在 AutoCAD的命令行里输入“unlk”并回车,当提示“请选择被加密的图形”的时候,点击一下图形,等待 程序加载和执行。
4. 等待过后,你会发现图纸被炸开了,文字部分双击也可进入编辑状态。
PS: 有的图纸重复使用了数次多重插入匿名块的方法, 这样的图纸需要重复使用上述方法才能最终炸开,我曾 经遇到一张图纸,是在重复运行了多次“unlk” 命令以后才炸开的。
|