编程要点 % p, ~+ M( j- s7 { 9 {8 B' B3 S. W3 J% H8 O1、插入用户窗体，在窗体上放置公共对话框（CommonDialog控件），并设置其属性Filter = "*.dwg|*.dwg"以过滤文件类型；Flags = 512以一次获得多个文件路径；* R# K0 Q) R3 K$ |0 V" s- X
2、用Documents对象的Open方法逐个打开要修改的文档； 7 M! ?2 w7 K) r! l o) V" x( q/ ~3、遍历文档（Document对象）的所有图元，用ObjectName属性（＝"AcDbBlockReference"）寻找符合给定条件的“块参照”（AcadBlockReference对象）；- V& I( c$ u/ l. A! G
4、用“块参照”的GetAttributes方法获得该“块参照”的属性集； 2 h' f& j3 V e( e0 K' a0 g& p5、用属性对象的标记（TagString）查找符合给定条件的属性； 0 f8 N& e, n5 d/ B9 @$ O% W3 L6、修改属性对象的TextString为新值；! j* ^ Q9 i; ]6 p& |- L
7、用文档的ReadOnly属性判断文档是否用只读方式打开，对只读文档用SaveAs方法保存；其它用Save方法保存；+ c! Y$ k- r9 ^
8、用Close方法关闭文档； % Q- k4 U; q6 e4 Z5 q- r# I1 F' C3 N8 } PLXG.rar(14.69 KB, 下载次数: 123)
2008-6-23 20:49 上传
点击文件名下载附件
; P! g2 ?/ H: [
; I) _; l. h: ` D7 b- f
附件是用上述方法编制的程序，可以打开同一目录下的多个DWG文档，修改指定的块参照的指定的属性值，保存修改结果并以文本文件记录被修改的文件、被修改的内容等。 e \4 ]- a4 O. Q* z1 y( h+ `
, U9 ^. p3 w* L5 b6 ^! A4 a& Q4 i % ~* l6 r! h4 b$ ?6 f. B 2 d- K( l# t8 |6 X图1为用户窗口，其中属性值可以是多行文本。点击“浏览”按钮后会弹出“打开文件”对话框如图21 Y. O, k/ p, y3 T& c) F' }, E$ P
& Y! h; c) Q0 G! o. `2 u
0 R4 N; \3 l; C
" g$ h; j7 W2 C+ N
在“打开”对话框可以在同一目录下选择多个文档；5 n4 \4 f6 U5 x' e
在用户窗口点击“开始修改”按钮，所有含有符合给定条件的块参照的文档都将被修改并保存。 + R! o7 a$ f }7 }% u5 q选中用户窗口的“创建日志”复选框，程序会在文档目录下创建一个文本文档，记录修改信息。 . C4 E7 r3 A9 d: n+ f7 o- z2 U( W# y; \本程序仅供参考。
发表于 2008-6-20 12:27:05
发表于 2008-6-23 20:49:31
:) 
楼主