CAD图纸无法分解，提示”无法分解TCH-PROTECT-ENTITY”，成功分解再加50

将下面的代码复制在记事本内，另存为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)
)

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/e7frf3x72exvjj3vey.html