VBA在桩位坐标计算中应用.docVIP

VBA在桩位坐标计算中应用 　　摘要：桩位坐标计算需要耗费大量的时间和精力,为了寻求一种高效、准确的计算方法，本文通过工程实例介绍了利用Microsoft Excel、AutoCAD提供的VBA功能编制程序，通过电子版图纸快速准确地计算出桩位测量坐标。 　　关键词：坐标，转换，Excel，AutoCAD，VBA 　　中图分类号：P123.2+1 文献标识码：A 文章编号： 　　 　　 　　1.引言 　　随着全站仪的普及，使用全站仪放样或复核桩位比较普遍，而坐标计算则是坐标放样中的重点和难点，不但花费大量时间，甚至因为数据不准确造成严重后果。目前桩位坐标通常是依据电子版设计图查询或依据设计图标注的尺寸推算。本文通过实例介绍通过Microsoft Excel 和AutoCAD2006软件内嵌的VBA语言，在CAD桩位图上自动编号，并从图上提取坐标保存到Excel工作表上，再根据建筑物外墙轴线交点(简称角桩)的测量坐标自动转换成测量坐标。此程序可按任意顺序、任意位置进行编号并提取坐标；操作简便，可大幅度提高桩基施工编号和放样效率。 　　2.VBA应用软件简介 　　Visual Basic for Applications（简称VBA）是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。VBA 易于学习掌握，有助于使工作自动化，提高工作效率。VBA 可以直接应用Excel、AutoCAD为平台，开发应用程序。 　　3.基于VBA 的桩位坐标提取程序实例 　　3.1编辑坐标提取程序 　　启动AutoCAD2006，打开桩位图，从菜单中，选择［工具］→［宏］→［Visual Basic 编辑器］，或者按快捷键Alt+F11进入Visual Basic Edirtor。从编辑器菜单中，选择［工具］→［引用］，在［可使用的引用］里勾选Microsoft Excel 11 Type Library，点［确定］离开；选择［插入］→［模块］在“模块1”中输入下列程序。 　　Sub 坐标提取() 　　Dim x(1), y(1) , EndPoint(2) As Double 　　Dim ReturnPoint As Variant 　　Dim i As Integer 　　Dim Ptext, Fname As String 　　Dim textObj As AcadText 　　Dim pointObj As AcadPoint 　　Dim lineobj As AcadLine 　　Dim Excel As Excel.Application 　　Dim ExcelSheet ,ExcelWorkbook As Object 　　Set Excel=New Excel.Application 　　Set ExcelWorkbook=Excel.Workbooks.Add 　　Set ExcelSheet=Excel.ActiveSheet 　　Fname=InputBox(请输入文件名。, , D:\桩位坐标.xls) 　　ExcelWorkbook.SaveAs Fname 　　ExcelSheet.Cells(1, 1).Value=桩号 　　ExcelSheet.Cells(1, 2).Value=纵坐标A 　　ExcelSheet.Cells(1, 3).Value=横坐标B 　　ExcelSheet.Cells(1, 4).Value=纵坐标X 　　ExcelSheet.Cells(1, 5).Value=横坐标Y 　　Do 　　ReturnPoint=ThisDrawing.Utility.GetPoint 　　If ReturnPoint(0)=y0 And ReturnPoint(1)= x0 Then Exit Do 　　EndPoint(1)=ReturnPoint(1)+500 　　EndPoint(0)=ReturnPoint(0)+500 　　Ptext=i-1 # 　　If i=0 Then 　　Ptext=角桩1 　　x0=ReturnPoint(1) : y0=ReturnPoint(0) 　　End If 　　If i=1 Then Ptext=角桩2 　　Set lineobj=ThisDrawing.ModelSpace.AddLine(ReturnPoint, EndPoint) 　　 Set textObj= ThisDrawing.ModelSpace.AddText(Ptext, EndPoint, 800) 　　Set pointObj=ThisDrawing.Mod