AUTOCAD+VBA+生成道路测量中的纵横断面数据表(版2).doc

AUTOCAD VBA 辅助制作道路测量中的纵横断面数据表 中国有色金属工业长沙勘察设计研究院珠海分院 苏伟 AUTOCAD集成的VBA为AUTOCAD二次开发提了一个便捷途径，通过VBA可实现AUTOCAD与其它应用软件进行通信，实现数据交换，本文介绍如何利用AUTOCAD VBA编程建立与Excel通信（本文中所使用的为AUTOCAD2004及EXCEL2007），方便快捷的生成道路纵横断面数据表。 关键词：AUTOCAD VBA与EXCEL通信 纵横断面数据表 前言 在道路测量中，为满足设计方要求，不但需要AUTOCAD电子地形图，还需要能够反映道路设计线上地表起伏状况的电子纵横断面数据表，纵横面数据表为反映设计中线上地表起伏状况，横面数据表为反映与设计线垂直的截面地表起伏状况。纵横断面数据表为能够批量形成纵横断面图，需要有固定格式，一般格式：如图1 图2 所示：在没有辅助软件情况下，利用现有电子地形图制作纵横数据表，需要进行大量繁琐的工作，即劳神，又易出错，本文介绍利用AUTOCAD VBA编程实现只在AUTOCAD中操作，完成在EXCEL中形成纵横断面数据表。 图1 图2 工作机理1.VBA简介：VISUAL BASIC FOR APPLICATION (VBA)是MICROSEFT面向最终用户应用软件编程语言，基于AUTOCAD的VBA应用程序是高级程序语言的计算功能与AUTOCAD的绘图功能的结合，通过AUTOCAD VBA编程，能够使AUTOCAD数据与EXCEL等联合工作。2.机理分析：在MICRASOFT EXCEL 中与表对应的对象是工作表(sheet或worksheet)与每一个单元格对应的对象是单元格式(CELL).工作表对象中的CELLS属性。它是以行（ROW）和列(GOLUMN）作为参数，对于行和列选择可采用变量形式，在本文中可设定工作表(WORKSHEET）的每个单元格CELL（i j ）来操作工作表，（ i 表示行数，j 表示列数，i ,j 都要为正整数）。 具体实现方法1.1 AUTOCAD VBA 程序与EXCEL建立联接，并创建新EXCEL表。 要在AUTOCAD中操作EXCEL,就必须利用VBA将EXCEL中的对象能让用户使用，就需要让AUTOCAD VBA引用EXEEL对象库操作步骤如下： 步骤1：在AUTOCAD（AUTOCAD2004以上版本）中打开VBA管理器，创建一个工程将其保存为“制表”。 步骤2：进入VBA集成开发环境，双击“工程资源管理器”窗口中的THISDRAWING图标，打开代码窗口，选择“工具/引用”菜单项，打开如图3所示对话框，选中MICROSOFT EXCEL 12.0 OBJECT LIBRARY (EXCEL对象库，其版本与计算机上安装的OFFICE 版本有关，12.0是OFFICE2007对应的版本号)，引用类型库实际上是向编译器表示本程序要使用一个已注册的组件，引用对象库后就可以在对象浏览器中观察对象库中的对象，方法和属性。 步骤3：完成对EXCEL对象库引用后，就可在程序中随时调用EXCEL中的对象。可按如下代码来创建完整的EXCEL对象引用实例： Public excelapp As Excel.Application ‘定义EXCEL对象变量 Public excelworkbook As Excel.Workbook ‘定义工作簿对象变量 Public excelsheet As Excel.Worksheet ‘定义工作表对象变量 Public Sub linkexcel() On Error Resume Next Set excelapp = GetObject(, excel.application) If Err Then Err.Clear Set excelapp = CreateObject(excel.application) If Err Then Err.Clear MsgBox 请检查EXCEL Exit Sub End If End If Set excelworkbook = excelapp.Workbooks.Add ‘创建新工作簿 Set excelsheet = excelworkbook.