基于VBA技术实现AutoCAD与Excel的数据交换 好.docVIP

S OUT HW EST 　WATER 　　WASTE WATER 　　　　西　南　给　排　水　　　　　　　　　Vol . 28　No . 3　2006 基于VBA 技术实现Aut oC AD 与Excel 的数据交换 史义雄 　　　　摘　要　针对给排水工程设计中绘制设备材料表图纸重复、费时的问题, 利用Aut oCAD VBA 语言编写绘图程序, 可将Excel (3. lxs 格式的表格导入Aut oCAD 中, 实现Aut oCAD 与Excel 的数据交换。结合 工程实践, 验证了程序的可行性。　　关键词　Aut oCAD Excel 数据交换VBA 0　引言 Excel 支持ActiveX Aut omati on 接口, 用户可以 目前, 在给排水工程设计中, 设计部门大多采用Aut oCAD 辅助设计, 采用Excel 统计主要设备材料, 再将设备材料表绘制成Aut oCAD (3. d wg 格式的图纸, 以便装订成册。在Aut oCAD 环境下绘制设备材料表是一项重复性的工作Excel Aut oXlsTable 等, 。利用Aut oCAD , 编写绘图程序, 可将Ex 2cel (3. lxs 格式的表格导入Aut oCAD 中, 实现Aut o 2CAD 与Excel 的数据交换, 自动生成Aut oCAD (3. d wg 格式的设备材料表。1　Aut oCAD VBA 语言接口 Aut oCAD 是Aut oDesk 公司开发的工程绘图软 通过其内嵌的VBA 语言控制其整个操作过程 [3, 4] 。 最常用的对象有以下4个, 各对象之间的结构模型1 : 件, 自R14版以后, 提供了VBA 语言接口, 采用Ac 2tiveX Aut omati on 技术, 大大地提高了系统二次开发 [1, 2] 的高效性、健壮性和易维护性。 VBA 就是V isual Basic f or App licati on 的简称, 它不仅可以执行并存取Aut oCAD 环境的所有资源, 还可以整合其他具有VBA 能力的应用程序。VBA 通过ActiveX Aut o mati on 接口把信息传送给Aut oCAD, 而Aut oCAD VBA 也允许VBA 环境与Aut oCAD 同时执行并通过ActiveX Aut omati on 接口提供Aut oCAD 的程序。由于Aut oCAD 、ActiveX Aut omati on 与VBA 的结合方式提供了功能强大的接口, 不仅可以操作Aut oCAD 的内部对象件, 更可以在其他的应用程序之间传送或接受数据(如MS Excel 和Word 等 , 实现与其他数据的共享。 2　Aut oCAD 与Excel 的数据交换2. 1　Excel ActiveX 对象模型 图1　Excel ActiveX 对象结构模型 (1 App licati on 对象。App licati on 是Excel 的最顶层对象, 是VBA 应用程序的运行环境, 其他对象均为它的子对象。 (2 Workbooks (Workbook 对象。一个Work 2book 对象实际上就是一个Excel 文件, Excel 程序可 以同时打开或创建多个文件, 它们被保存在Work 2books 集合对象中, 可以通过索引号或名称访问。 (3 Worksheets (Worksheet 对象。一个Work 2sheet 对象对应于一个工作表,Worksheet 对象的集合 为Worksheets 对象。用户在读写数据之前, 必须通过索引号或名称激活对应的工作表, 使之成为当前工作表。 (4 Range 对象。Range 对象用来指定工作表上的区域, 可以是一个或多个单元格。2. 2　Aut oCAD 中读取Excel 数据 Aut oCAD 与Excel 的数据交换, 需要加载Excel ActiveX 对象模型。首先, 按A lt +F11组合键, 打开Aut oCAD 的VBA 编辑器; 然后在VBA 编辑器窗口中选择“工具”菜单的“引用”, 选择加载“M icr os oft Ex 2 S OUT HW EST 　WATER 　　WASTE WATER 　　　　西　南　给　排　水　　　　　　　　　Vol . 28　No . 3　2006 cel 9. 0Object L ibrary ”项(Excel2000版本 。inserti onPoint (2 =0 Set line Obj =This D ra wing . ModelSpace . AddL ine (startPoint, endPoint textString = 主要设备材料表 height =5 Set text