CAD文件多重块制作和分解

新建一个空白文本文档，然后将下面“红色”代码复制到里面并保存，将文件名以及后缀名改成unlk.lsp(defunc:unlk(/enent)(setqen(entsel\n请选择被加密的图形:))(ifen(if(=(cdr(assoc0(setqent(cdr(entget(setqen(caren)))))))INSERT)(progn(setqent(entmakex(list'(0.INSERT)(assoc2ent)(assoc10ent))))(command_.explode(entlast))(entdelen))))(princ\nOK，解密成功。)(princ))先打开无法分解的图纸，然后找到工具→加载应用程序，然后找到“unlk.lsp”那个文件点一下，然后点击“加载”按钮，对话框左下角提示”加载成功“，然后点击“关闭”按钮；然后输入命令unlk空格，然后点一下图形，就大功告成了！如果一次不成，就多用几次unlk，因为用了多次引用快……2、把“普通块”转为“多重插入块”将文件名以及后缀名改成lockb.lsp(DEFUNC:lockb()(setvarcmdecho0)(SETQSTM(car(ENTSEL\n点取块)))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlxINSERT)(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqe(subst(cons701)r_zm70e))(setqe(subst(cons711)c_zm71e))(setqe(subst(list100AcDbMInsertBlock)(list100AcDbBlockReference)e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL\n点取下一块))))(setvarcmdecho1))