VBA在工程测量中应用.docVIP

VBA在工程测量中应用 　　摘要：介绍VBA在工程测量中的应用及优点。 　　关键词：VBA Excel　工程测量 　　中图分类号：P258 　　文献标识码：A 　　文章编号：1007-3973(2011)010-065-02 　　1、引言 　　VBA是Basic编程语言中比较流行的一种语言，它继承了Basle的很多特性以及优点，使工程测量中大量的数据处理变得简单快捷。 　　2、实例 　　已知测站点、后视点、放样点三点坐标，利用坐标反算计算出测站点后视点与放样点的夹角、测站点与放样点的距离。 　　已知A、B两点的坐标值分别为(XA、yD(xB、yB)，反算它们的方位角和距离其数学模型为： 　　 　　已知A、B、C三点的坐标值(XAyA)(xB,yB)(xC、yC)，计算它的夹角其数学模型为： 　　 　　通过分析我们发现要计算ZA的值，首先计算a^B和aA。的值，而方位角aAB、aAC属于象限角，计算复杂，容易出错，而利用电子表格结合VBA程序计算就很简单。下面根据具体问题，笔者对VBA是如何结合EXCEL在工程测量中应用进行分析。 　　2.1自定义坐标转换的计算函数 　　启动Excel打开点坐标所在的工作簿，执行工具→宏→Visual Basic编辑器”命令，打开“Visual Basic编辑”窗口。执行“插入→模块”命令，展开“模块1(代码)”窗口，输入下面的代码： 　　Option Explicit 　　ConstPI=3．14159265358979 　　2.1.1方位角计算函数 　　Public Function XYToFAng(CX As Double。CY As Doub-le，x As Double，Y As Double)As Double 　　Dim DeltX．Deity As Double 　　DimAug,FangAsDouble 　　DeltX=X?CX 　　Deity=Y-CY 　　IfDeltX0 And DeitYO Then 第一象限角 　　Ang=Am(DeltY，DeltX) 　　Fang=Aug 　　ElselfDeltXO Then　第二象限角 　　Aug=Am(DeltY／DeltX) 　　Fang＝PI+Ang’aug0 And DeitYCzPtAng And CzHsAng=CzPtAng Then 　　PAng=2*PI+(CzPtAng-CzHsAng) 　　Else 　　PAng=(CzPtAng―CzHsAng) 　　End Tf 　　IfPang0。rhen 　　Pang=Pang 　　Else 　　Pang=360-Pang 　　End If 　　XYToAng=JdToDFM(PAng) 　　End Function 　　2.1.3角度转换度分秒计算函数 　　Public Function JdToDFM(Jd As Double)As String 　　DimD，F.MAsInteger 　　Dim XiaoJd As Double 　　D=Fix(Jd) 　　XiaoJd=Jd-D 　　F=Fix(60*XiaoJd) 　　M=Int((60*XiaoJd-F)*60) 　　JdToDFM=D＆”0”F””’M 　　End Function 　　2.1.4测站与放样点距离计算 　　Public Function XyToDis(X1 As Double，Y1 As Double，X2 As Double，Y2 As Double)As Double 　　Dim Dis As Double 　　Dis=Sqr((X1．X2)Λ2+(Y1-Y2)“2) 　　XyToDis=Format(Dis，“#.###”) 　　End Function 　　输入上述代码完成后，关闭窗口返回。 　　(VBA代码在Execl中经实践检验，计算结果准确无误) 　　提示：自定义函数的VBA结构为“Function………EndFunction”。 　　代码中“XYToFAng”“XYToAng”“JdToDFM…”XyToDis”代表自定义函数名称，这些名称可以自行修改；函数名称后的括号里的内容为函数参数。 　　2.2计算测站点与放样点的距离和夹角 　　切换到点坐标所在的工作表，如图l所示。 　　 　　A列为点名，B列、c列为点的x、Y坐标，这些为已知数据，D列和E列分别为需要求解的距离和夹角；第1行为测站点数据，第2行为后视点数据，第3行至第8行为放样点数据。选中D4单元格(保存“距离”的单元格)，输入公式“=xtodis()”，它计算测站点(CZ)与放