|
|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自： 中国辽宁本溪
使用VBA的解决方案
编程要点4 K0 o9 t( W5 b
( [1 ^# ~8 s* B$ Y; m* U1、插入用户窗体，在窗体上放置公共对话框（CommonDialog控件），并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型；Flags = 512以一次获得多个文件路径；/ i7 _" ~0 g- l
2、用Documents对象的Open方法逐个打开要修改的文档；
: ^: A, H J/ u, o) ]3、遍历文档（Document对象）的所有图元，用ObjectName属性（＝"AcDbBlockReference"）寻找符合给定条件的“块参照”（AcadBlockReference对象）；
9 c5 b$ y& s$ P: q6 i6 Y4、用“块参照”的GetAttributes方法获得该“块参照”的属性集；& m/ q/ l! D- R- k) Q# k o
5、用属性对象的标记（TagString）查找符合给定条件的属性；
9 X6 l& G$ ]# b: b6、修改属性对象的TextString为新值；1 \" u7 ]9 E _4 w
7、用文档的ReadOnly属性判断文档是否用只读方式打开，对只读文档用SaveAs方法保存；其它用Save方法保存；
: L4 u) r1 Z0 O' M! ]! }& F$ Z- ]8、用Close方法关闭文档；
$ |) L$ U0 Z( _: V) L- F* C
# n4 O. I, S7 R9 d
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|
发表于 2008-6-20 12:27:05
:) 
楼主