计算机应用程序编程语言进行二次开发程序设计
高速公路施工路线复测及竣工测量工作中,在没有专业软件辅助的情况下,绘制公路纵断面图是非常繁琐的工作,需要进行大量的,重复的操作,既费神,又容易出错.特别在公路进场复测阶段以及竣工测量阶段,需要在短时间内将所测量的中桩高程转化成纵断面图上的地面线,才可以进行路线复核.利用Microsoft Excel,AutoCAD都提供的VBA功能,编制程序进行绘制,即把Microsoft Excel表格中的桩号,地面高程等信息读取出来,在AutoCAD文件里以文字,线条的方式写出来,就可以快速绘制公路纵断面地面线.
3.1应用程序编程语言Visual Basic for Application简介
Visual Basic for Application(VBA)是Microsoft面向最终用户的应用程序编程语言.Office产品的组件,AutoCAD均支持VBA作为二次开发工具.VBA最大特点和最大优点是利用面向对象(OOP)的ActiveX Automation技术,使语言的引擎在技术上与开发环境分离.它的功能在很大程度上依赖于它的客户显露的Automation接口.同时,由于VBA是基于ActiveX Automation技术,它可以使用任何Automation技术的应用程序共同工作.
基于AutoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合,使用VBA程序语句来控制对AutoCAD图形的操作.VBA作为一个集成的开发环境,它提供了高质量的用户化编程能力,能够使AutoCAD数据与其它的VBA应用程序,如Excel软件,直接共享,实现无缝连接,顺利进行数据交换.
3.2程序设计算法分析
在Microsoft Excel中,与表对应的对象是工作表(Sheet或Worksheet),与每一个表格方格对应的对象是单元格区域(range),它可以仅包括一个单元格(cell),也可以由多个单元格合并而成.工作表对象中的cells属性,在单元格的选择方面可以达到与range相同的效果,它是以行(row)和列(gol)作为参数的,对于行和列的选择可以采用变量的形式.在本例中,可设定工作表(Worksheet)的每一行第一列(cells(i,1))为中桩桩号,每一行第二列(cells(i,2))为对应的地面高程.
在AutoCAD中,没有与表对应的对象,但可以根据表中前后桩号定义水平距离,根据地面高程定义垂直距离,将表中数据理解为线条与文字对象的集合.这样,通过读取Microsoft Excel文件中的最小对象—单元格区域(cells(i,j))的主要信息,利用VBA建立AutoCAD与Excel的通信,然后在AutoCAD文件里指定的图层,位置画线条,书写文字.通过循环,遍历所有单元格区域(cells(i,j)),边读边写,最终完成纵断面地面线的绘制及桩号,地面高程的书写.
3.3程序具体实现步骤
3.3.1 在AutoCAD中创建Excel应用程序
要编写存取Excel的应用程序,必须通过VBA将Excel中的对象能够让操作者使用,这就需要参考 Excel对象的数据库.其步骤如下:
1.打开AutoCAD的VBA编辑器(命令:VBAIDE);
2.选择"工具"\"引用"项,在弹出的"引用"对话框的"可使用的引用"列表框内,选择"Microsoft Excel 2002 Object Library"项;
3.单击"确定"按钮;
4.接下来使用下列代码可创建完整的应用程序对象实例:
Dim Excel As Excel.Application
'激活要与之通信的Excel应用程序
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err 0 Then
Set Excel = CreateObject("Excel.Application")
End If
3.3.2读入坐标点画地面线
1.设定工作表(Worksheet)的每一行第一列(cells(i,1))为中桩桩号,每一行第二列(cells(i,2))为对应的地面高程.由于公路路线纵断面图水平方向比例为1:2000,垂直方向比例为1:200,故读入时,y坐标应乘以10倍.
2.以(0,0,0)为原点,以桩号里程为x坐标,以10倍所对应的地面高程为y坐标,0为z坐标,定义某一桩号对应的地面点坐标;然后循环读取各里程桩号数据信息,定义各桩号所对应的地面点坐标;最后以直线段连接各地面点坐标,则为地面线.

上一页下一页