对 DWG 图形"净身"

st788796

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


专业直接传递图纸，目前绝大多数都是用来做底图的，这个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

2. 
   
3. (if (setq lst (vlax-ldata-list obj))
   
4.     (mapcar '(lambda (x) (vlax-ldata-delete obj x))
   
5.             (mapcar 'car lst)
   
6.     )
   
7.   )

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

3 清理 extentiondictionary

2. 
   
3. (if (eq (vla-get-ha**tensiondictionary obj) :vlax-true)
   
4.     (vl-catch-all-apply
   
5.       'vla-delete
   
6.       (list (vla-getextensiondictionary obj))
   
7.     )
   
8.   )

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

sh_h

谢谢楼主分享！！！

qq1254582201

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

c8661994

这个必须要试试

yangjian001

很厉害试试效果

st788796

关于 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

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

游客，如果您要查看本帖隐藏内容请回复

yufeng37

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

st788796

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

Block
Dimstyle
Group
Layer
Layout
Linetype
Textstyle
UCS
View
Viewport

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

2. 
   
3. (defun _clearcollection        (objs)
   
4.   (vlax-for obj        objs
   
5.     (_clearent obj)
   
6.   )
   
7. )

<br /> (defun _clearcollection        (objs)<br />   (vlax-for obj        objs<br />     (_clearent obj)<br />   )<br /> )

清理各个集合

1. 
   
2. (mapcar        '(lambda (x)
   
3.            (_clearcollection x)
   
4.          )
   
5.         (list (vla-get-layers doc)
   
6.               (vla-get-linetypes doc)
   
7.               (vla-get-blocks doc)
   
8.               (vla-get-dimstyles doc)
   
9.               (vla-get-views doc)
   
10.               (vla-get-textstyles doc)
    
11.               (vla-get-viewports doc)
    
12.               (vla-get-UserCoordinateSystems doc)
    
13.         )
    
14. )

复制代码

st788796

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

1. 
   
2. (vlax-for grp (vla-get-groups doc)
   
3.    (vla-delete grp)
   
4. )

复制代码

LayerStateManager 是记录在 Layers 的 extensiondictionary 中的，单独对 layers 删除 extensiondictionary 即可

casd

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

yzhyxh

yinzhun22

谢谢楼主分享！！！

yinzhun22

！！！！！谢谢分享

sicky111

谢谢分享。