CAD多重插入引用炸开方法(加密解密)

1、CAD多重插入引用炸开方法（加密解密）AutoCad2009-09-1213:08:21阅读3093评论8字号：大中小订阅CAD多重插入引用炸开方法【亲测】现在越来越多的人喜欢加密图了。多重插入引用就是经常会使用的图纸加密技术，永远无法解开的死锁。方法一：有两个好工具，可以轻松炸开。一个是AutoCAD快速加载AutoLISP文件：wjjm；另一个cad加密插件，请大家使用。具体方法：AutoCAD快速加载AutoLISP文件wjjm的使用：用cad打开需要炸开的文件，将wjjm直接拖入cad窗口，命令行输入wjmm,回车后按提示操作即可。操作步骤：于CAD中，选择：“工具”菜单-“加载应用程

2、序”选项。于对话框中选择文件“wjjm”，进行应用程序加载。于CAD命令行中，输入“wjjm”命令，然后选择需要保护的图块，随便点击即可取消保护。方法二：输入“CYN-”，将多重插入块转换为普通快，然后可以炸开编辑方法三：把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把多重插入块转换为“普通块，然后既可用explode分解。加载后运行lockb可把“普通块转换为“多重插入块”;转换“多重插入块”为“普通块”。(DEFUNC:exm()(setvarcmdecho0)(SETQSTM(car(ENTSELn点取多重块)(whilestm(setqe(entgetstm)(s

3、etqstlx(cdr(assoc0e)(if(=stlxINSERT)(PROGN(setqr_zm70(assoc70e)(setqc_zm71(assoc71e)(setqr_dist_zm44(assoc44e)(setqc_dist_zm45(assoc45e)(setqe(subst(cons440)r_dist_zm44e)(setqe(subst(cons450)c_dist_zm45e)(setqe(subst(cons700)r_zm70e)(setqe(subst(cons710)c_zm71e)(setqe(subst(list100AcDbBlockReference

4、)(list100AcDbMInsertBlock)e)(entmakee)(entdelstm)(SETQSTM(car(ENTSELn点取下一多重块)(setvarcmdecho1);转换“普通块”为“多重插入块”(DEFUNC:lockb()(setvarcmdecho0)(SETQSTM(car(ENTSELn点取块)(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)(list100AcDbBlockReferen