|
|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自： 中国辽宁本溪
使用VBA的解决方案
编程要点
8 {0 t! O* h b8 }$ ~, N1 M* h" |7 [) ?# l8 i
1、插入用户窗体，在窗体上放置公共对话框（CommonDialog控件），并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型；Flags = 512以一次获得多个文件路径；
& {" h- W6 S/ K/ q5 Y$ J* f- o2、用Documents对象的Open方法逐个打开要修改的文档；
8 j% S6 t- ~5 ^ U+ w: P$ M/ S3、遍历文档（Document对象）的所有图元，用ObjectName属性（＝"AcDbBlockReference"）寻找符合给定条件的“块参照”（AcadBlockReference对象）；( o, o6 j( r4 J# u0 g
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集；
7 W' | ?3 E9 y9 @) @5、用属性对象的标记（TagString）查找符合给定条件的属性；% P, D2 W" x* \6 H" [0 Z" a
6、修改属性对象的TextString为新值；( L' P% `$ [- \# j3 m/ u
7、用文档的ReadOnly属性判断文档是否用只读方式打开，对只读文档用SaveAs方法保存；其它用Save方法保存；8 {! n A2 W& M+ @
8、用Close方法关闭文档；
# ~, T9 s5 n3 D5 A( k, ?$ W
0 }5 U: m. d; b# k8 H& O
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|
发表于 2008-6-20 12:27:05
:) 
楼主