|
发表于 2008-6-23 20:49:31
|
显示全部楼层
来自: 中国辽宁本溪
使用VBA的解决方案
编程要点( w+ _# b; j7 [) B# B7 q* C4 ~
' N4 ?! W( `8 z) {# @1、插入用户窗体,在窗体上放置公共对话框(CommonDialog控件),并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型;Flags = 512以一次获得多个文件路径;8 _/ _. t" e8 M# \9 n* ?3 g" l _
2、用Documents对象的Open方法逐个打开要修改的文档;! V1 a, h* ^1 ?: t& }4 H
3、遍历文档(Document对象)的所有图元,用ObjectName属性(="AcDbBlockReference")寻找符合给定条件的“块参照”(AcadBlockReference对象);
, t, p; e/ t7 z0 D. Z4、用“块参照”的GetAttributes方法获得该“块参照”的属性集;+ i" I, Y( R! K
5、用属性对象的标记(TagString)查找符合给定条件的属性;8 f# v x% T9 `6 G( w
6、修改属性对象的TextString为新值;7 U. I! n3 U7 e; [: c
7、用文档的ReadOnly属性判断文档是否用只读方式打开,对只读文档用SaveAs方法保存;其它用Save方法保存;
2 [1 ]6 i8 [! s I+ a8、用Close方法关闭文档;7 O& C" p* p7 ^4 ]7 Y9 q
! c& G2 H, _( Y2 z N8 G
PLXG.rar
(14.69 KB, 下载次数: 123)
|
评分
-
查看全部评分
|