资源预览内容
第1页 / 共6页
第2页 / 共6页
第3页 / 共6页
第4页 / 共6页
第5页 / 共6页
第6页 / 共6页
亲,该文档总共6页全部预览完了,如果喜欢就下载吧!
资源描述
利用VBA程序语言绘制铁路纵断面图摘要:VBA作为一个集成的开发环境,能够使AutoCAD数据与其它的VBA应用程序,如MicrosoftExcel软件,直接共享,实现无缝连接,交换数据。本文介绍如何利用VBA编程建立AutoCAD2000与Excel2000的通信,实现数据交换,快速绘制公路纵断面地面线。关键词:公路纵断面设计地面线VBAAutoCAD与Excel的通信前言纵断面设计图是道路纵断面设计的主要成果,也是道路设计的重要技术文件之一。在纵断面设计图上有两条主要的线:一条是地面线,它是根据中线上各桩点的高程而点绘的一条不规则的折线,反映了沿着中线地面的起伏变化;另一条是设计线,它是经过技术上、经济上以及美学上等多方面比较后定出的一条规则形状的几何线。公路设计中,在没有专业设计软件辅助的情况下,绘制公路纵断面图是很繁琐的事,需要进行大量的、重复的操作,既劳神,又容易出错。特别在公路外业勘测阶段,需要在短时间内将所测量的中桩高程转化成纵断面图上的地面线,才可以进行路线纵坡设计,分析测量成果(选线)是否合理。如何快速绘制公路纵断面地面线呢?答案是:利用MicrosoftExcel、AutoCAD都提供的VBA功能,编制程序进行绘制,即把MicrosoftExcel表格中的桩号、地面高程等信息读取出来,在AutoCAD文件里以文字、线条的方式写出来,就可绘出中桩地面线。2、VBA简介VisualBasicforApplication(VBA)是Microsoft面向最终用户的应用软件编程语言。它最早出现于Microsoft的Excel和Project中,如今VBA已成为VB和所有Office产品的组件。常用的绘图软件AutoCAD也已支持VBA作为二次开发工具。VBA最大特点和最大优点是利用面向对象(OOP)的ActiveXAutomation技术,使语言的引擎在技术上与开发环境分离。它的功能在很大程度上依赖于它的客户显露的Automation接口。同时,由于VBA是基于ActiveXAutomation技术,它可以使用任何Automation技术的应用程序共同工作。基于AutoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合,使用VBA程序语句来控制对AutoCAD图形的操作。VBA作为一个集成的开发环境,它提供了高质量的用户化编程能力,能够使AutoCAD数据与其它的VBA应用程序,如MicrosoftExcel软件,直接共享,实现无缝连接,交换数据非常方便。3、工作机理分析在MicrosoftExcel中,与表对应的对象是工作表(Sheet或Worksheet),与每一个表格方格对应的对象是单元格区域(range),它可以仅包括一个单元格(cell),也可以由多个单元格合并而成。工作表对象中的cells属性,在单元格的选择方面可以达到与range相同的效果,它是以行(row)和列(gol)作为参数的,对于行和列的选择可以采用变量的形式。在本例中,可设定工作表(Worksheet)的每一行第一列(cells(i,1)为中桩桩号,每一行第二列(cells(i,2)为对应的地面高程。在AutoCAD中,没有与表对应的对象,但可以根据表中前后桩号定义水平距离,根据地面高程定义垂直距离,将表中数据理解为线条与文字对象的集合。这样,通过读取MicrosoftExcel文件中的最小对象单元格区域(cells(i,j)的主要信息,利用VBA建立AutoCAD与Excel的通信,然后在AutoCAD文件里指定的图层、位置画线条,书写文字。通过循环,遍历所有单元格区域(cells(i,j),边读边写,最终完成纵断面地面线的绘制及桩号、地面高程的书写。4、具体实现方法4.1在AutoCAD中创建Excel应用程序要编写存取Excel的应用程序,必须通过VBA将Excel中的对象能够让用户使用,这就需要参考Excel对象的数据库。其步骤如下:4.1.1打开AutoCAD的VBA编辑器(命令:VBAIDE);4.1.2选择“工具”“引用”项,在弹出的“引用”对话框的“可使用的引用”列表框内,选择“MicrosoftExcel8.0ObjectLibrary”项;4.1.3单击“确定”按钮;4.1.4接下来使用下列代码可创建完整的应用程序对象实例:DimExcelAsExcel.Application激活要与之通信的Excel应用程序OnErrorResumeNextSetExcel=GetObject(,Excel.Application)IfErr0ThenSetExcel=CreateObject(Excel.Application)EndIf4.2读入坐标点画地面线4.2.1设定工作表(Worksheet)的每一行第一列(cells(i,1)为中桩桩号,每一行第二列(cells(i,2)为对应的地面高程。由于公路路线纵断面图水平方向比例为1:2000,垂直方向比例为1:200,故读入时,y坐标应乘以10倍。4.2.2以(0,0,0)为原点,以桩号里程为x坐标,以10倍所对应的地面高程为y坐标,0为z坐标,定义某一桩号对应的地面点坐标;然后循环读取各里程桩号数据信息,定义各桩号所对应的地面点坐标;最后以直线段连接各地面点坐标,则为地面线。4.2.3下述代码可读入Excel数据信息画地面线DimiAsIntegerDimlineobjAsAcadLineDimsPnt(0To2)AsDoubleDimePnt(0To2)AsDouble读入坐标画地面线Worksheets(sheet1).Activatei=3由第三行起DoUntilcells(i,1).Value=Ifcells(i+1,1)=0ThenExitDoEndIfsPnt(0)=cells(i,1).ValuesPnt(1)=10*cells(i,2).ValuesPnt(2)=0ePnt(0)=cells(i+1,1).ValueePnt(1)=10*cells(i+1,2).ValueePnt(2)=0Setlineobj=ThisDrawing.ModelSpace.AddLine(sPnt,ePnt)i=i+1Loop4.3桩号及高程的写入4.3.1定义文字的插入位置以桩号里程为x坐标,0为y坐标,0为z坐标,确定文字的插入点。4.3.2以单行文字形式创建桩号及高程文字,定义文字的格式、字体、高度、倾斜角度。插入后的文字应逆时针旋转90度。4.4辅助网格线的绘制4.4.1辅助网格线能较为直观地表示桩号及地面高程的对应关系,有助于纵坡设计;4.4.2以桩号里程为x坐标,0为y坐标,0为z坐标,确定网格线第一点;以桩号里程为x坐标,10倍所对应的地面高程为y坐标,0为z坐标,确定网格线第二点;两点连线,则为网格线。5实例5.1运行AutoCAD2000程序;5.2打开AutoCAD的VBA编辑器(命令:VBAIDE);5.3创建成下面的过程及代码,并运行之:SubZDM()DimExcelAsExcel.ApplicationDimExcelSheetAsObjectDimExcelWorkbookAsObjectDimiAsIntegerDimlineobjAsAcadLineDimklineobjAsAcadLineDimsPnt(0To2)AsDoubleDimePnt(0To2)AsDoubleDimkPnt(0To2)AsDoubleDimhPnt(0To2)AsDoubleDimksPnt(0To2)AsDoubleDimkePnt(0To2)AsDoubleDimdmPnt(0To2)AsDoubleDimtextObjAsAcadTextDimtxtStrAsStringDiminsPntAsVariantDimtxtHeightAsDoubleDimlayObjAsAcadLayerDimnewLayerAsAcadLayerSetlayObj=ThisDrawing.Layers.Add(标注)SetlayObj=ThisDrawing.Layers.Add(地面线)SetlayObj=ThisDrawing.Layers.Add(网格线)DimatTxtobjAsAcadTextStyleSetatTxtobj=ThisDrawing.ActiveTextStyleatTxtobj.fontFile=c:windowsfontssimfang.ttf创建Excel应用程序OnErrorResumeNextSetExcel=GetObject(,Excel.Application)IfErr0ThenSetExcel=CreateObject(Excel.Application)EndIf打开Excel表ExcelName=InputBox(路径:)Excel.Workbooks.OpenExcelName表格不可见Excel.Visible=False读入坐标点画地面线Worksheets(sheet1).Activatei=3DoUntilcells(i,1).Value=Ifcells(i+1,1)=0ThenExitDoEndIfsPnt(0)=cells(i,1).ValuesPnt(1)=10*cells(i,2).ValuesPnt(2)=0ePnt(0)=cells(i+1,1).ValueePnt(1)=10*cells(i+1,2).ValueePnt(2)=0SetnewLayer=ThisDrawing.Layers(地面线)ThisDrawing.ActiveLayer=newLayernewLayer.Color=acWhiteSetlineobj=ThisDrawing.ModelSpace.AddLine(sPnt,ePnt)Ifcells(i,2)=Thenlineobj.Deletei=i+1Loop画辅助网格线及插入数据i=3DoUntilcells(i,1).Value=画辅助网格线ksPnt(0)=cells(i,1).Value:ksPnt(1)=0:ksPnt(2)=0kePnt(0)=cells(i,1).Value:kePnt(1)=10*cells(i,2).Value:k
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号