|
|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自: 中国辽宁本溪
使用VBA的解决方案
编程要点
0 I* m `. A" i" g2 b( d3 ?& t I6 C( d6 d) M
1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;( j) i( }5 m7 z
2、用Documents对象的Open方法逐个打开要修改的文档;
8 P8 ^6 m6 N! j2 y( m( f/ q, A# J3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);0 E' ]; O5 y5 y0 X F
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;& s& r3 ^1 y( j; @; E3 e$ V" Y2 m
5、用属性对象的标记(TagString)查找符合给定条件的属性;
" x$ v; Q; e# p- l6、修改属性对象的TextString为新值;
% }' A1 B R, `( b9 t7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;% @. P" J6 m2 M
8、用Close方法关闭文档;: m8 O; o% [. `- p2 N- X; P
( V+ v9 b9 X" Z' {1 a3 Y: L, d
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|