|
|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自: 中国辽宁本溪
使用VBA的解决方案
编程要点
7 ~6 Z7 S$ ~% H+ J @2 Z" B
; X/ F' ?; a/ J2 ]4 z, F' K& c4 i1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;) _* j% q4 G' T% L- Q: S
2、用Documents对象的Open方法逐个打开要修改的文档;
! n- C, m# _ J0 n. a8 E& j3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);
2 t8 m$ B: S {4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;
& w( a9 `' {: ?" T5、用属性对象的标记(TagString)查找符合给定条件的属性;% s8 @0 N. p; V: t. Y
6、修改属性对象的TextString为新值;
9 B5 |! M! f; L5 [7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;- C6 M4 r, o2 S
8、用Close方法关闭文档;
0 L0 V9 E `" K \8 y0 Y
+ U8 {+ W2 q9 c2 r
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|