Howto: 计算度方位角

摘要： 这篇文章的样本脚本是关于量测以度为单位的两点之间的方位角.
内容： Private Function ReturnAzimuth(pt1 As MapObjects2.Point, _ pt2 As MapObjects2.Point) _ As Double '-- Enter two points. Function returns the azimuth '-- in degrees from Point 1 to Point 2. Dim x1 As Double, y1 As Double Dim x2 As Double, y2 As Double x1 = pt1.X y1 = pt1.Y x2 = pt2.X y2 = pt2.Y Select Case True Case ((x1 = x2) And (y1 < y2)) ReturnAzimuth = 0 Case ((x1 = x2) And (y1 > y2)) ReturnAzimuth = 180 Case ((y1 = y2) And (x1 < x2)) ReturnAzimuth = 90 Case ((y1 = y2) And (x1 > x2)) ReturnAzimuth = 270 Case ((x1 < x2) And (y1 < y2)) ReturnAzimuth = 180 * ((Atn(Abs(x1 - x2) / Abs(y1 - y2))) / 3.14159) Case ((x1 < x2) And (y1 > y2)) ReturnAzimuth = 180 * ((Atn(Abs(y1 - y2) / Abs(x1 - x2))) / 3.14159) + 90 Case ((x1 > x2) And (y1 > y2)) ReturnAzimuth = 180 * ((Atn(Abs(x1 - x2) / Abs(y1 - y2))) / 3.14159) + 180 Case ((x1 > x2) And (y1 < y2)) ReturnAzimuth = 180 * ((Atn(Abs(y1 - y2) / Abs(x1 - x2))) / 3.14159) + 270 End Select End Function




创建时间：2000-10-31
最近更新： 2006-06-06


【原文链接】
http://support.esrichina.com.c ... .html