利用vba程序语言绘制公路纵断面图(1)

《利用vba程序语言绘制公路纵断面图(1)》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用VBA程序语言绘制公路纵断面图（1）摘要：VBA作为一个集成的开发环境，能够使AutoCAD数据与其它的VBA应用程序，如MicrosoftExcel软件，直接共享，实现无缝连接，交换数据。本文介绍如何利用VBA编程建立AutoCAD2000与Excel2000的通信，实现数据交换，快速绘制公路纵断面地面线。关键词：公路纵断面设计地面线VBAAutoCAD与Excel的通信1前言纵断面设计图是道路纵断面设计的主要成果，也是道路设计的重要技术文件之一。在纵断面设计图上有两条主要的线：一条是地面线，它是根据中线上各

2、桩点的高程而点绘的一条不规则的折线，反映了沿着中线地面的起伏变化；另一条是设计线，它是经过技术上、经济上以及美学上等多方面比较后定出的一条规则形状的几何线。公路设计中，在没有专业设计软件辅助的情况下，绘制公路纵断面图是很繁琐的事，需要进行大量的、重复的操作，既劳神，又容易出错。特别在公路外业勘测阶段，需要在短时间内将所测量的中桩高程转化成纵断面图上的地面线，才可以进行路线纵坡设计，分析测量成果是否合理。如何快速绘制公路纵断面地面线呢？答案是：利用MicrosoftExcel、AutoCAD都提供的VBA功能，编制程

3、序进行绘制，即把MicrosoftExcel表格中的桩号、地面高程等信息读取出来，在AutoCAD文件里以文字、线条的方式写出来，就可绘出中桩地面线。2VBA简介VisualBasicforApplication是Microsoft面向最终用户的应用软件编程语言。它最早出现于Mierosoft的Excel和Project中，如今VBA已成为VB和所有Office产品的组件。常用的绘图软件AutoCAD也已支持VBA作为二次开发工具。VBA最大特点和最大优点是利用面向对象的ActiveXAutomation技术，使语

4、言的引擎在技术上与开发环境分离。它的功能在很大程度上依赖于它的客户显露的Automation接口。同时，由于VBA是基于ActiveXAutomation技术，它可以使用任何Automation技术的应用程序共同工基于AntoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合，使用VBA程序语句来控制对AutoCAD图形的操作。VBA作为一个集成的开发环境，它提供了高质量的用户化编程能力，能够使AutoCAD数据与其它的VBA应用程序，如MicrosoftExcel软件，直接共享，实现无

5、缝连接，交换数据非常方便。3工作机理分析在MicrosoftExcel中，与表对应的对象是工作表，与每一个表格方格对应的对象是单元格区域，它可以仅包括一个单元格，也可以由多个单元格合并而成。工作表对象中的cells属性，在单元格的选择方面可以达到与range相同的效果，它是以行和列作为参数的，对于行和列的选择可以采用变量的形式。在本例中，可设定工作表的每一行第一列）为中桩桩号，每一行第二列）为对应的地面高程。在AutoCAD中，没有与表对应的对象，但可以根据表中前后桩号定义水平距离，根据地面高程定义垂直距离，将表中

6、数据理解为线条与文字对象的集合。这样，通过读取MicrosoftExcel文件中的最小对象…单元格区域）的主要信息，利用VBA建立AutoCAD与Excel的通信，然后在AutoCAD文件里指定的图层、位置画线条，书写文字。通过循环，遍历所有单元格区域），边读边写，最终完成纵断面地面线的绘制及桩号、地面高程的书写。4具体实现方法在AutoCAD中创建Exce1应用程序要编写存取Excel的应用程序，必须通过VBA将Excel中的对象能够让用户使用，这就需要参考Excel对象的数据库。其步骤如下：打开AutoCAD的

7、VBA编辑器;选择“工具”“引用”项，在弹出的“引用”对话框的“可使用的引用”列表框内，选择“MicrosoftExcelObjectLibrary’，项；单击“确定”按钮；接下来使用下列代码可创建完整的应用程序对象实例：DimExcelAs1激活要与之通信的Excel应用程序OnErrorResumeNextSetExcel二GetObject（，’r”）IfErrOThenSetExcel=CreateObject(’’’r)Endlf读入坐标点画地面线设定工作表的每一行第一列)为中桩桩号，每一行第二列)为对应

8、的地面高程。由于公路路线纵断面图水平方向比例为1:2000，垂直方向比例为1:200，故读入时，y坐标应乘以10倍。以为原点，以桩号里程为X坐标，以10倍所对应的地面高程为y坐标，0为z坐标，定义某一桩号对应的地面点坐标；然后循环读取各里程桩号数据信息，定义各桩号所对应的地面点坐标；最后以直线段连接各地面点坐标，则为地线。下述代码可读入Excel数据信息画地