|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自: 中国辽宁本溪
使用VBA的解决方案
编程要点
$ l2 M, f9 `% k% P: z
: e0 d' o$ O! a2 d* V1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;' [9 _( T6 R, X
2、用Documents对象的Open方法逐个打开要修改的文档;% c i& W* \1 v; m. v2 a" I! Y
3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);4 ]/ P6 h( Q, q! l
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;: Q9 `$ c3 E: J" y" `9 d
5、用属性对象的标记(TagString)查找符合给定条件的属性;
/ s7 j2 I1 p9 X" A% B# ?8 b6、修改属性对象的TextString为新值;
/ A2 C8 S8 o; w+ I a0 R1 F) S7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;: ^( A3 ]! q" V. D, Z
8、用Close方法关闭文档;
% S; j& z& {* K( k6 k8 p X2 N5 B) T$ B
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|