给cad加密

如题

大大，怎么用？
能给个讲解不？

出略看了一下。。。。应该是选取图形然后重新组成块插入。。。块不能炸开.......

;;;in AutoCAD 2000i only................只能在2000i使用。。。

网上查了一下。。。。。

原理如下：


首先，不能说“加密”，因为这种方法没多少技术含量，一破就开
MINSERT插入的图块叫“多重插入块”，有点象列阵一样。这种“多种插入块”是不能被分解的。

用它还不能解决问题，因为插入图块后，图块就留在图形文件中，别人不能分解，但照样可以重新利用图块插入，所以，单纯的“多重插入块”起不到所谓的“加密”作用。

接下来就是如何消除图形文件上的块，让别人无图块好插。
“匿名块”，好像也叫“无名块”具有这个特性。
于是，匿名块+多重插入块 ，也就是 多重插入匿名块 之“加密”出笼了。

这起到作用了吗？

对只会用命令画图的人来说，只想到用已有的命令去解决，自然对它束手无策，同时，也正是这类用户，似乎拣了个金元宝，“加密”之风到处刮，比台风还起劲。

对稍有编程常识的用户来说，ACAD命令不能解决，很自然就会去查这个对象的特性，也就是它的数据列表，哈哈～～，一查，原形毕露了。

尾巴露出来了，对付的办法也就有了。编个小程序，对付它不费吹灰之力。
查看对象的特性，普通图块与多重插入块差别在哪不是一目了然了吗？













==============================================================================================

破解该加密程序：




(Defun C:Unlockup (/ CmdEcho Index SSet SName Model Paper)
  (setq CmdEcho (getvar "CmdEcho"))
  (setvar "CmdEcho" 0)
  (if (null (wcmatch (getvar "ACADVer") "14*"))
    (alert (strcat
         "\\n           AutoCAD版本匹配错误"
         "\\n *****************************************"
         "\\n     在当前的AutoCAD版本下无法完成解锁"
         "\\n           当前图形的命令"
         "\\n      如果要解锁当前图形, 请手动修改"
         "\\n         无名块的行列数据从2到0"
         "\\n        保存成R14.0格式的图形文件"
         "\\n       使用AutoCAD R14.0打开并炸开"
             "\\n      或在AutoCAD R14.0下使用本命令"
         "\\n *****************************************")
    )
    (progn
      (princ "\\n 正在解锁当前图形，请等候...")
      (command "_.Layer" "_T" "*" "_ON" "*" "_UNLOCK" "*" "")
      (while (setq SSet    (ssget "x"
                   (list (cons 0 "INSERT")
                     (cons 70 2)
                     (cons 71 2)
                   )
            )
         )
    (setq Index -1
          Model nil
          Paper nil
    )
    (repeat    (sslength SSet)
      (setq SName (entget (ssname SSet (setq Index (1+ Index)))))
      (if (= (substr (cdr (assoc 2 SName)) 1 2) "*U")
        (progn
          (setq SName (subst (cons 70 0) (assoc 70 SName) SName)
            SName (subst (cons 71 0) (assoc 71 SName) SName)
          )
          (entmod SName)
          (if (= 1 (cdr (assoc 67 SName)))
        (setq Model (cons (cdr (assoc -1 SName)) Model))
        (setq Paper (cons (cdr (assoc -1 SName)) Paper))
          )
        )
      )
    )
    (cond ((= (getvar "TileMode") 0)
           (foreach Item Paper (command "_.Explode" Item))
           (setvar "TileMode" 1)
           (foreach Item Model (command "_.Explode" Item))
          )
          ((= (getvar "TileMode") 1)
           (foreach Item Model (command "_.Explode" Item))
           (setvar "TileMode" 0)
           (foreach Item Paper (command "_.Explode" Item))
          )
    )
        (princ "完成！")
      )
    )
  )
  (setvar "CmdEcho" CmdEcho)
)

我找很久终于给我找到了,有用东西,

...如何使用？ 总是提示只能在副本上运行

不知道
也用不上

这个是怎么用的

额，下个先

问题青年大亮啊~~~~~