【秘技】解密多重定义块加密的CAD图

goodmorning

几行字的LISP代码就可以实现解密那种所谓加密了。

可对付由贱人工具箱、钢构CAD、Smartlock、Lockup等加锁的CAD图纸！

原代码如下：请大家相互告知，多多转载！共享万岁！！
;--------------------------------------------------------------------------------------------------------------
(defun C:JM1()
   (command "explode" "all")
   (princ"\n你看看是否解密了。若还未解密，再炸炸看，请重复执行此命令 JM1 和炸碎命令 EXPlode")(princ)
)
(alert "解密！可解密贱人工具箱、钢构CAD、浩辰CAD、Smartlock、Lockup等加锁的CAD图纸！\n\n命令：JM1 -- 解密真简单！ \n\n若执行本命令一次还未解密，再炸炸看，并尝试重复执行此命令 JM1 和炸碎命令 EXPlode")
;---------------------------------------------------------------------------------------------------------------------

把代码粘贴到记事本里，存盘为 JM.lsp ，就可以用了，用得时候拖到CAD屏幕里就 ok!


[ 本帖最后由 goodmorning 于 2009-5-30 16:09 编辑 ]