|
发表于 2008-6-23 20:49:31
|
显示全部楼层
使用VBA的解决方案
编程要点
/ i- {, S4 ~+ t2 P
9 n0 l( a8 {: p$ Y0 m6 ^1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;6 `2 @# O( Y( `+ z( f; b' n
2、用Documents对象的Open方法逐个打开要修改的文档;
, L# u4 i4 A G8 S5 ?3 Y! i& @3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);4 Q* O# h0 A& X1 U
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;" |, F8 o1 A6 C1 S( P) i
5、用属性对象的标记(TagString)查找符合给定条件的属性;
6 j& o& |- F0 m6 C7 ~1 h* N( h6、修改属性对象的TextString为新值;3 u: Q/ ?$ Q6 N$ b7 }- @" x3 A
7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;1 G3 E8 g7 e2 l7 f% n
8、用Close方法关闭文档;
: T; J! M: v) e" A8 ^( l7 k2 ]3 I9 e- k" ]& J0 T
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|