方位角的计算.docVIP

CAD默认的世界坐标系跟测量上用的坐标系是不同的。世界坐标系中的X即测量坐标系中的Y，世界坐标系中的Y即测量坐标系中的X。 不知道你是不是要编程的方法或源程序？下面是在CAD下的常用操作方法： 用命令id可以查看点的XYZ坐标 例如： 命令: _id 指定点: X = 517.0964 Y = 431.1433 Z = 0.0000 命令: ID 指定点: X = 879.0322 Y = 267.6949 Z = 0.0000 用命令dist（快捷命令di）即可知道两点间的角度和距离 例如： 命令: _dist 指定第一点: 指定第二点: 距离 = 397.1308，XY 平面中的倾角 = 335d4146.7， 与 XY 平面的夹角 = 0d00.0 X 增量 = 361.9358， Y 增量 = -163.4483， Z 增量 = 0.0000 其中的“XY 平面中的倾角 = 335d4146.7”是世界坐标系内的平面夹角，用450度减去这个值335d4146.7即是坐标方位角114°18′13.3〃。 你可以用计算器验算一下，点1、X = 431.1433，Y = 517.0964；点2、X = 267.6949，Y = 879.0322的坐标方位角和距离值是不是114°18′13.3〃和397.131m。[VB]方位角计算 以前那个有错误现更新改正： VB源码彩色显示 注：在[code]...[/code]内就以下面格式显示文字，双击源码拷贝到剪切板 Public Const PI = 3.14159265359Function Pol(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double 计算直线的方位角???? Dim Sub_y As Double????Sub_y = Abs(y2 - y1)????If Sub_y = 0 Then????????Sub_y = 0.0000000001????End If????????Pol = Atn((Abs(x2 - x1)) / Sub_y)????????????If x2 x1 And y2 = y1 Then 0-90????????????ElseIf x2 x1 And y2 = y1 Then 180-270????????Pol = PI + Pol????ElseIf x2 x1 And y2 = y1 Then 270-360????????Pol = 2 * PI - Pol????ElseIf x2 = x1 And y2 = y1 Then 90-180????????Pol = PI - Pol????End If????End Function 是好罗嗦网友yfy2003和mdr提出有gyl的通用公式：也就是： VB源码彩色显示 注：在[code]...[/code]内就以下面格式显示文字，双击源码拷贝到剪切板 Function Pol(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double 计算直线的方位角????????Dim Sub_x As Double????????Sub_x = x2 - x1 + 0.0000000001????????Pol = PI - Sgn(Sub_x) * PI / 2 - Atn((y2 - y1) / Sub_x)End Function VB源码彩色显示 注：在[code]...[/code]内就以下面格式显示文字，双击源码拷贝到剪切板 Private Function CalaAlpha(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Double????根据坐标反算方位角????Dim dx As Double????Dim dy As Double????Dim PI As Double????PI = 4 * Atn(1)????dx = x2 - x1????dy = y2 - y1????If dx = 0 Then????????If dy 0 Then????????????CalaAlpha = PI / 2????????Else????????????CalaAlpha = 3 * PI / 2????????????当dx=dy=0时CalaAlp