|
|
发表于 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)
|
评分
-
查看全部评分
|
发表于 2008-6-20 12:27:05
:) 
楼主