[测试]：旧话重提：利用无名块加密图纸

ll_j

加密是为了什么？是防止图形被别人窃取么？是甲方要图形文件时应付么？还是为了加密而加密？
可能最多的是别人要图纸时的无奈，加密就可以了么？设置了密码别人就不会索取么？索取可以不给么？可能不行，如果可以不给，你可以直接不给图形文件，根本无需加密。
当然，图形加密也有防“盗”作用，不过别人需要“盗”取的是图纸呢？还是设计思想呢？如果只是“盗”取图纸，大可不必从你这里，从建设方、施工单位都可以，一叠图纸找个人描一下也不会需要多少钱。
如果是为了加密而加密，这是兴趣问题，没有办法，最好加入Autodesk公司，接触源码，但“加密”总可以破解，Word文本不就是这样么？
说了许多，其实我是反对“加密”的，本帖本是为了加深对“多重引用”和“无名块”的理解而作，正像 lzh741206 斑竹所言“太简单”，但如果凭自己的理解去“破解”，多少是要下点功夫的，这也正是我不急着取消“隐藏”的原因，也许真的有人会拿去对付甲方也未可知。

大尾巴狼

支持楼主
我正在用这个程序加工我的图纸，因为明天就要交图给甲方了

最好不能解密，希望楼主编译个解不开的，我不在意破坏，破坏的越严重越好，因为我还有备份，如果修改，我会修改源文件

其实加密的作用同DWF是殊途同归，都是只要对方能够查看、打印就好了，谁也不希望自己的老婆给人家亵玩焉，－－粗俗了些，但我就是这个意思，

谢谢楼主的程序

lhj743

我收集的：newlockup加密，unlockup解密！
图形可以整个或者部分成无名块，除非删除，否则无法修改的！
哈哈，真好！

雪山飞狐(lzh)

^_^，像捅了马蜂窝了，首先声明我对加密DWG文件没有兴趣，不是为了显示自己的水平，只是想弄清楚在纯技术角度有没有好一点的算法

xgwl

很想看看newlockup, unlockup 有什么不一样！ 可以吗？

大尾巴狼

最初由 lhj743 发布
[B]我收集的：newlockup加密，unlockup解密！
图形可以整个或者部分成无名块，除非删除，否则无法修改的！
哈哈，真好！ [/B]

介绍出来用用？

aidraft

这样也可以解开
[php]
;;unlock.lsp
;;作者:AIDraft 06/9/04
;;用途: 炸开各种explode无能为力的图块
(defun c:ul (/ doc mspace blks blname blkref blkdef objlst)
  (setq        doc    (vla-get-activedocument (vlax-get-acad-object))
        mspace (vla-get-modelspace doc)
        blks   (vla-get-blocks doc)
        )
  (setq        blkname
         (vla-get-name (setq blkref (vlax-ename->vla-object
                                      (car (entsel "\n选择锁定的图块:"))
                                      )
                             )
                       )
        )
  (setq blkdef (vla-item blks blkname))
  (vlax-for obj        blkdef
    (setq objlst (cons obj objlst))
    )
  (setq        objs (vlax-safearray-fill
               (vlax-make-safearray
                 vlax-vbObject
                 (cons 0 (1- (vla-get-count blkdef)))
                 )
               objlst
               )
        )
  (vla-copyobjects doc objs mspace)
  (vla-erase blkref)
  (mapcar 'vlax-release-object (list doc mspace blks blkdef))
  (princ)
)[/php]

GFspringwillow

果然厉害，加密后炸不开呢？

ngc

太深奥了，看不明白