|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自: 中国辽宁本溪
使用VBA的解决方案
编程要点 ^, @9 E( o% V: p- ~% f; i$ a. K
; S( d/ Z% g# t! g% i( `
1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;3 I3 C8 o& `+ i8 e/ E
2、用Documents对象的Open方法逐个打开要修改的文档;
5 s& ~( a% ], f" q3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);% J( y1 H5 B: k! y: e8 y7 e0 I5 {
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;
4 K' N+ p9 ~, c6 b$ f' ~$ \5、用属性对象的标记(TagString)查找符合给定条件的属性;
! v3 Y3 j N2 i0 X. C/ I6、修改属性对象的TextString为新值;( M3 t p; H0 J8 {4 N
7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;
U. c* i( i6 s! i! L0 U1 l8、用Close方法关闭文档;+ y; o. h4 |% a" m5 [4 _7 E T
* q1 P- C7 z: c' B: H# f
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|