对 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))
)
)
谢谢楼主分享!!! 感觉很厉害的样子,试试效果如何 这个必须要试试
很厉害试试效果 关于 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 就不一定返回正确结果! 基于上面的认识,形成一个清理对象的函数 clearent , 这里要考虑三者的清理顺序,三者都可能包含彼此,但是 ldata xdata 都有一个 "索引" , 所以这两个要首先清理,extensiondictionary 放到最后,又由于 ldata 和extensiondictionary 的关系,防止 程序异常退出,采用vl-catch-all-apply 包裹,而且要多清理几次
**** Hidden Message ***** 感谢楼主分享这么实用的东东
本帖最后由 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)
)
) 还有一个独立的 Groups 也没用了
(vlax-for grp (vla-get-groups doc)
(vla-delete grp)
)
LayerStateManager 是记录在 Layers 的 extensiondictionary 中的,单独对 layers 删除 extensiondictionary 即可 现在的专业软件,附加的东西是挺多,应该清理一下 {:1_1:}{:1_1:}{:1_1:}{:1_1:}{:1_1:} 谢谢楼主分享!!! !!!!!谢谢分享 谢谢分享。
页:
[1]
2