发布网友
共2个回答
热心网友
这个好弄,没那么邪乎,我开始找人给我整还差点被骗了钱,结果还是自己整好了
热心网友
将下面的代码复制在记事本内,另存为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)
)