search

aiastia / note

笔记
17 stars 5 forks source link

多重插入引用炸开 #11

Open aiastia opened 6 years ago

aiastia commented 6 years ago

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

unlk.zip