autocad+vba+生成道路测量中的纵横断面数据表(版2)

《autocad+vba+生成道路测量中的纵横断面数据表(版2)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、AUTOCADVBA辅助制作道路测量中的纵横断面数据表AUTOCADVBA辅助制作道路测量中的纵横断面数据表中国有色金属工业长沙勘察设计研究院珠海分院苏伟AUTOCAD集成的VBA为AUTOCAD二次开发提了一个便捷途径，通过VBA可实现AUTOCAD与其它应用软件进行通信，实现数据交换，本文介绍如何利用AUTOCADVBA编程建立与Excel通信（本文中所使用的为AUTOCAD2004及EXCEL2007），方便快捷的生成道路纵横断面数据表。关键词：AUTOCADVBA与EXCEL通信纵横断面数据表一．前言在道路测量中，为满足设计方要求，不但需要AUTOCAD电子地形

2、图，还需要能够反映道路设计线上地表起伏状况的电子纵横断面数据表，纵横面数据表为反映设计中线上地表起伏状况，横面数据表为反映与设计线垂直的截面地表起伏状况。纵横断面数据表为能够批量形成纵横断面图，需要有固定格式，一般格式：如图1图2所示：在没有辅助软件情况下，利用现有电子地形图制作纵横数据表，需要进行大量繁琐的工作，即劳神，又易出错，本文介绍利用AUTOCADVBA编程实现只在AUTOCAD中操作，完成在EXCEL中形成纵横断面数据表。图1图2共14页第14页AUTOCADVBA辅助制作道路测量中的纵横断面数据表一．工作机理1.VBA简介：VISUALBASICFORAP

3、PLICATION(VBA)是MICROSEFT面向最终用户应用软件编程语言，基于AUTOCAD的VBA应用程序是高级程序语言的计算功能与AUTOCAD的绘图功能的结合，通过AUTOCADVBA编程，能够使AUTOCAD数据与EXCEL等联合工作。2.机理分析：在MICRASOFTEXCEL中与表对应的对象是工作表(sheet或worksheet)与每一个单元格对应的对象是单元格式(CELL).工作表对象中的CELLS属性。它是以行（ROW）和列(GOLUMN）作为参数，对于行和列选择可采用变量形式，在本文中可设定工作表(WORKSHEET）的每个单元格CELL（ij）

4、来操作工作表，（i表示行数，j表示列数，i,j都要为正整数）。二．具体实现方法1.1AUTOCADVBA程序与EXCEL建立联接，并创建新EXCEL表。要在AUTOCAD中操作EXCEL,就必须利用VBA将EXCEL中的对象能让用户使用，就需要让AUTOCADVBA引用EXEEL对象库操作步骤如下：步骤1：在AUTOCAD（AUTOCAD2004以上版本）中打开VBA管理器，创建一个工程将其保存为“制表”。步骤2：进入VBA集成开发环境，双击“工程资源管理器”窗口中的THISDRAWING图标，打开代码窗口，选择“工具/引用”菜单项，打开如图3所示对话框，选中MICRO

5、SOFTEXCEL12.0OBJECTLIBRARY(EXCEL对象库，其版本与计算机上安装的OFFICE版本有关，12.0是OFFICE2007对应的版本号)，引用类型库实际上是向编译器表示本程序要使用一个已注册的组件，引用对象库后就可以在对象浏览器中观察对象库中的对象，方法和属性。步骤3：完成对EXCEL对象库引用后，就可在程序中随时调用EXCEL中的对象。可按如下代码来创建完整的EXCEL对象引用实例：PublicexcelappAsExcel.Application‘定义EXCEL对象变量PublicexcelworkbookAsExcel.Workbook‘定

6、义工作簿对象变量PublicexcelsheetAsExcel.Worksheet‘定义工作表对象变量PublicSublinkexcel()OnErrorResumeNextSetexcelapp=GetObject(,"excel.application")IfErrThenErr.ClearSetexcelapp=CreateObject("excel.application")IfErrThenErr.ClearMsgBox"请检查EXCEL"ExitSubEndIfEndIfSetexcelworkbook=excelapp.Workbooks.Add‘创建新

7、工作簿Setexcelsheet=excelworkbook.Worksheets("sheet1")excelapp.WindowState=xlMinimized‘EXCEL程序窗口最小化EndSub共14页第14页AUTOCADVBA辅助制作道路测量中的纵横断面数据表图31.2通过在AUTOCAD中提示用户进行鼠标和键盘的操作获得距离和高程数据，并将数据写入创建的EXCEL表中的指定单元格。由于纵横断面数据表格式不同，所以要分别用两个独立程序过程来完成。1.2.1制作纵断面数据表的程序步骤可分为以下几步：步骤1：程序运行，提示用户用