|
发表于 2008-6-23 20:49:31
|
显示全部楼层
使用VBA的解决方案
编程要点9 e/ ?+ S& u) n% J* W8 N0 T! i
/ V! E( F. l/ q+ P+ j$ @4 t
1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;* E1 A; p- B$ s6 a5 H
2、用Documents对象的Open方法逐个打开要修改的文档;
, \" I+ E6 F- g. h0 Q% V. v* c$ L3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);
, J5 P6 \6 n$ [8 o5 u {4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;. C5 h! L' k) z7 }* N8 p5 c% b
5、用属性对象的标记(TagString)查找符合给定条件的属性;2 k% H) W% [0 `$ S- G+ d- u
6、修改属性对象的TextString为新值;
7 g1 |9 P' k8 c' w( N* A1 ^8 d7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;4 Y% Y. [) I' @ q9 U# h
8、用Close方法关闭文档;' J4 v7 o" g+ a2 V; E* H
' L, R5 f O: V) I, ~& I, u
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|