2024年6月8日发(作者：)
Cad文件加密解密
涂与图 2009-11-06 09:54:09 阅读3233 评论6 字号：大中小 订阅
先找到这个
Cad文件加密软件：
/CHN/?ID=UI6FA5SD45RY8E
【SmartLock图纸锁】是坚固而实用的CAD图纸保护软件，可以有效保护您的设计
图纸的知识产权，并帮助您提升其图纸价值。可有效防止您的图纸文件被非法篡改或拷贝，
使绘图文件能够安全分发给您的用户而无忧。
安装了一下，我的机器码：UI6FA5SD45RY8E，我的注册码：
B430-20091121-4B56-5552-8C9D-CF4F-428E-3164。
结果是，完全没有用——因为可以另存！我晕，这算什么加密啊！
然后看到这个：
方法一：
有两个好工具，可以轻松炸开。一个是AutoCAD 快速加载 AutoLISP 文件：wjjm；
另一个cad加密插件，请大家使用。
具体方法：
AutoCAD 快速加载 AutoLISP 文件wjjm的使用：用cad打开需要炸开的文件，将
wjjm直接拖入cad窗口，命令行输入wjmm，回车后按提示操作即可。
操作步骤：① 于CAD中，选择：“工具”菜单→“加载应用程序”选项。
② 于对话框中选择文件“wjjm”，进行应用程序加载。
③ 于CAD命令行中，输入“wjjm”命令，然后选择需要保护的图块，随便点击即可
取消保护。
方法二：
输入“CYN-”，将多重插入块转换为普通快，然后可以炸开编辑
方法三：
把以下内容保存为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 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") 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 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e))
(entmake e)
(entdel stm)
))
(SETQ STM (car (ENTSEL "n点取下一块")))
)
(setvar "cmdecho" 1)
)
在CAD工具菜单中加载应用，然后再输入exm命令，即可用“explode”
分解。
没有可以实验的图，先放着吧。
发布评论