st788796 发表于 2017-7-21 17:59:12

对 DWG 图形"净身"

本帖最后由 st788796 于 2017-7-22 11:17 编辑

本方法可能会清除有用数据，使用前三思！


专业直接传递图纸，目前绝大多数都是用来做底图的，这个DWG达到尺寸最小是我们追求的目标。现实是每个专业用的专业软件都会留下自己的“痕迹”，尤其是那些使用了自定义实体的软件，即使另存了也会或多或少的留下一些代理实体。
首先从实体说起，ACAD的基本实体，除了几何特征，还有几个特性，layer、 linetype、 color 这三个是系统的，必须具备。额外信息还有 xdata、extentiondictionary，还有一个Autodesk为autolisp量身定做的 ldata，其中 xdata 是和 regapp 联系，extentiondictionary 可能是实体自身的，也可能是关联在其它上面，ldata 就是实体自己的，清理从这三个开始。
1 清理 xdata
http://bbs.xdcad.net/thread-711090-1-1.html
2 清理ldata

(if (setq lst (vlax-ldata-list obj))
    (mapcar '(lambda (x) (vlax-ldata-delete obj x))
            (mapcar 'car lst)
    )
)

3 清理 extentiondictionary

(if (eq (vla-get-ha**tensiondictionary obj) :vlax-true)
    (vl-catch-all-apply
      'vla-delete
      (list (vla-getextensiondictionary obj))
    )
)

sh_h 发表于 2017-7-21 20:37:14

谢谢楼主分享！！！

qq1254582201 发表于 2017-7-21 22:37:19

感觉很厉害的样子，试试效果如何

c8661994 发表于 2017-7-22 02:22:10

这个必须要试试

yangjian001 发表于 2017-7-22 07:50:59

很厉害试试效果

st788796 发表于 2017-7-22 10:10:35

关于 extensiondictionary 和ldata 再补充一点，看下面的测试
命令: L LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:

命令: (vla-get-ha**tensiondictionary (vlax-ename->vla-object (entlast)))
:vlax-false

命令: (vlax-ldata-put (entlast) "test" '(1 2 3))
(1 2 3)

命令: (vla-get-ha**tensiondictionary (vlax-ename->vla-object (entlast)))
:vlax-true

命令: (vlax-ldata-delete (entlast) "test")
T

命令: (vla-get-ha**tensiondictionary (vlax-ename->vla-object (entlast)))
:vlax-true

命令: (vla-get-ha**tensiondictionary (vlax-ename->vla-object (entlast)))
:vlax-true

命令: (vla-get-ha**tensiondictionary (vlax-ename->vla-object (entlast)))
:vlax-true

命令: (vlax-ldata-list (entlast))
nil

可以看出ldata 可能是继承的Dictionary 类，而且实体只要增加过 ldata ，ha**tensionDictionary 就不一定返回正确结果！

st788796 发表于 2017-7-22 10:21:18

基于上面的认识，形成一个清理对象的函数 clearent , 这里要考虑三者的清理顺序，三者都可能包含彼此，但是 ldata xdata 都有一个 "索引" , 所以这两个要首先清理，extensiondictionary 放到最后，又由于 ldata 和extensiondictionary 的关系，防止 程序异常退出，采用vl-catch-all-apply 包裹，而且要多清理几次
**** Hidden Message *****

yufeng37 发表于 2017-7-22 10:49:09

感谢楼主分享这么实用的东东

st788796 发表于 2017-7-22 10:59:09

本帖最后由 st788796 于 2017-7-22 11:12 编辑

xdata ldata extensiondictionary 三者都可以附着在 acad 的对象上，除了看的见的还有看不见的，一般包括

Block
Dimstyle
Group
Layer
Layout
Linetype
Textstyle
UCS
View
Viewport

以上这些都包含在各自的集合中，通用的集合内清理

(defun _clearcollection      (objs)
(vlax-for obj      objs
    (_clearent obj)
)
)

清理各个集合

(mapcar        '(lambda (x)
           (_clearcollection x)
       )
        (list (vla-get-layers doc)
              (vla-get-linetypes doc)
              (vla-get-blocks doc)
              (vla-get-dimstyles doc)
              (vla-get-views doc)
              (vla-get-textstyles doc)
              (vla-get-viewports doc)
              (vla-get-UserCoordinateSystems doc)
        )
)

st788796 发表于 2017-7-22 11:15:27

还有一个独立的 Groups 也没用了

(vlax-for grp (vla-get-groups doc)
   (vla-delete grp)
)
LayerStateManager 是记录在 Layers 的 extensiondictionary 中的，单独对 layers 删除 extensiondictionary 即可

casd 发表于 2017-7-23 07:56:45

现在的专业软件，附加的东西是挺多，应该清理一下

yzhyxh 发表于 2017-7-23 08:36:26

{:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:}

yinzhun22 发表于 2017-7-23 22:33:13

谢谢楼主分享！！！

yinzhun22 发表于 2017-7-23 22:40:08

！！！！！谢谢分享

sicky111 发表于 2017-7-24 00:07:08

谢谢分享。
页: [1] 2
查看完整版本: 对 DWG 图形"净身"