解决多重插入块无法分解的问题1页.doc

解决多重插入块无法分解的问题将下面的代码复制在记事本内，将txt文件另存为unlk.lsp文件，打开这张不能修改的图纸，在命令行输入appload选择加载程序文件unlk.lsp，命令行键入unlk，再选择不能修改的图块。ps，有的打散一次后，依然有些小图加密的，就可以小部分的打散，步骤同上(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)