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

CAD加密解密多重插入引用 炸开方法  HYPERLINK /blog/ \l m=0t=1c=fks_087070093084084070087081081095092085082075084083087064 \o AutoCad AutoCad 2009-09-12 13:08:21 阅读3093 评论8 ??字号：大中小?订阅 CAD多重插入引用 炸开方法～【亲测】现在越来越多的人 喜欢 加密图了。 多重插入引用就是 经常会使用的图纸加密技术，永远无法解开的死锁。 方法一： 有两个好工具，可以轻松炸开。一个是AutoCAD 快速加载 AutoLISP 文件：wjjm；另一个cad加密插件，请大家使用。 具体方法： AutoCAD 快速加载 AutoLISP 文件wjjm的使用：用cad打开需要炸开的文件，将wjjm直接拖入cad窗口，命令行输入wjmm，回车后按提示操作即可。 操作步骤：① 于CAD中，选择：“工具”菜单→“加载应用程序”选项。 ② 于对话框中选择文件“wjjm”，进行应用程序加载。 ③ 于CAD命令行??，输入“wjjm”命令，然后选择需要保护的图块，随便点击即可取消保护。方法二： 输入“CYN-”，将多重插入块转换为普通快，然后可以炸开编辑 方法三：把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块”;;-------------------------------------------------------------;;转换“多重插入块”为“普通块”。(DEFUN C:exm ()(setvar cmdecho 0)(SETQ STM (car (ENTSEL \n点取多重块)))(while stm(setq e (entget stm))(setq stlx (cdr (assoc 0 e)))(if (= stlx INSERT)(PROGN(setq r_zm70 (assoc 70 e))(setq c_zm71 (assoc 71 e))(setq r_dist_zm44 (assoc 44 e))(setq c_dist_zm45 (assoc 45 e))(setq e (subst (cons 44 0) r_dist_zm44 e))(setq e (subst (cons 45 0) c_dist_zm45 e))(setq e (subst (cons 70 0) r_zm70 e))(setq e (subst (cons 71 0) c_zm71 e))(setq e (subst (list 100AcDbBlockReference) (list 100AcDbMInsertBlock) e))(entmake e)(entdel stm)))(SETQ STM (car (ENTSEL \n点取下一多重块))))(setvar cmdecho 1));;--------------------------------------------------------------------;;转换“普通块”??“多重插入块”(DEFUN C:lockb ()(setvar cmdecho 0)(SETQ STM (car (ENTSEL \n点取块)))(while stm(setq e (entget stm))(setq stlx (cdr (assoc 0 e)))(if (= stlx INSERT)(PROGN(setq r_zm70 (assoc 70 e))(setq c_zm71 (assoc 71 e))(setq e (subst (cons 70 1) r_zm70 e))(setq e (subst (cons 71 1) c_zm71 e))(setq e (subst (list 100AcDbMInsertBlock) (list 100AcDbBlockReference) e))(entmake e)(entdel stm)))(SETQ STM (car (ENTSEL \n点取下一块))))(setvar cmdecho 1))