建筑定点测量的角度计算

角度也是根据三角函数算的。用计算器或者查表吧。计算器上面有反三角函数，就是通过三角形各边的比值计算某个锐角角度。

搞测量必须懂三角函数基础计算，好好学学吧，这是小学的知识，很容易的。

我帮你理理，他上交的应该是3个坐标，其中两个是控制点（如A、B），另外一个是待测点（如C）。你要复核首先得计算AC边的边长，然后计算AC边的方位角，然后计算AB边的方位角，你的问题中的角度就是AC、AB边方位角之差。至于方位角计算，请参考相关测量书籍

　　测量角度计算公式,工程测量,工程测量规范,工程测量技术, '角度化弧度
Public Function Radian(a As Double) As Double
Dim Ra As Double
Dim c As Double
Dim FS As Double
Dim Ib As Integer
Dim Ic As Integer
Ra = pi / 180#
Ib = Int(a)
c = (a - Ib) * 100#
Ic = Int(c)
FS = (c - Ic) * 100#
Radian = (Ib + Ic / 60# + FS / 3600#) * Ra
End Function
'弧度化角度
Public Function Degree(a As Double) As Double
Dim B As Double
Dim Fs1 As Double
Dim Im1 As Integer
Dim Id1 As Integer
B = a
Call DMS(B, Id1, Im1, Fs1)
Degree = Id1 + Im1 / 100# + Fs1 / 10000#
End Function

Public Sub DMS(a As Double, ID As Integer, IM As Integer, FS As Double)
Dim B As Double
Dim c As Double
c = a
c = 180# / pi * c
ID = Int(c + 0.0000005)
B = (c - ID) * 60 + 0.0005
IM = Int(B)
FS = (B - IM) * 60

End Sub

'计算两点间的方位角
Public Function azimuth(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Single
Dim dx As Double
Dim dy As Double
Dim fwj As Double
dx = x2 - x1
dy = y2 - y1
If dy <> 0 Then
fwj = pi * (1 - Sgn(dy) / 2) - Atn(dx / dy)
azimuth = Degree(fwj)
Else
If dx > 0 Then
azimuth = 0
Else
azimuth = 180
End If
End If

End Function

第一个是测点A,第二个是测点B,第三个是AB之间的夹角.