|
|
发表于 2008-6-23 20:49:31
|
显示全部楼层
使用VBA的解决方案
编程要点5 F" j% \, [0 Z9 [& I
# _# N$ m% l3 U- v1、插入用户窗体，在窗体上放置公共对话框（CommonDialog控件），并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型；Flags = 512以一次获得多个文件路径；2 r$ @% D2 B! N4 l# ~
2、用Documents对象的Open方法逐个打开要修改的文档；
; k* B- z; B7 S3、遍历文档（Document对象）的所有图元，用ObjectName属性（＝"AcDbBlockReference"）寻找符合给定条件的“块参照”（AcadBlockReference对象）；
2 V3 A6 X8 r4 l& ^3 c Z/ g, \4、用“块参照”的GetAttributes方法获得该“块参照”的属性集；
) c4 k' ]6 h! V4 t5、用属性对象的标记（TagString）查找符合给定条件的属性；
w. r) X% A8 b% o0 P& r: R% _3 O6、修改属性对象的TextString为新值；# p: z9 ?& m5 X3 W: J6 Q
7、用文档的ReadOnly属性判断文档是否用只读方式打开，对只读文档用SaveAs方法保存；其它用Save方法保存； [ R" b0 h* w3 Q+ ~$ U
8、用Close方法关闭文档；0 `# `: L. X+ Z* y5 I1 t! {: K1 K$ i
' C5 p, m* ]$ F0 e% t3 a) Y
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|
发表于 2008-6-20 12:27:05
:) 
楼主