全站仪角度自由定向

Sub 坐标高程计算()
Dim I, D, F, M As Integer, W, H, Z, T, J, S, G As Double
Dim PI As Double
PI = 3.14159265258979
For I = 1 To 245
If Cells(I, 1) = "SD" Then
 W = Application.Atan2((Cells(3, 7) - Cells(2, 7)), (Cells(3, 8) - Cells(2, 8)))
 If W < 0 Then
W = W + 2 * PI
End If
 D = Int(Cells(I, 2))
 F = Int((Cells(I, 2) - D) * 100)
 M = (Cells(I, 2) - D) * 10000 - F * 100
 H = D * PI / 180 + F * PI / 180 / 60 + M * PI / 180 / 60 / 60 + W
 If H > 2 * PI Then
H = H - 2 * PI
 End If
Z = 90 - Cells(I, 3)
T = Int(Z)
If T < 0 Then
T = Int(Z * -1)
End If
J = Int((Z - T) * 100)
If J < 0 Then

J = Int((Z - T) * -1 * 100)
End If
S = Z * 10000 - J * 100
If S < 0 Then
S = Z * 10000 * -1 - J * 100
End If

G = T * PI / 180 + J * PI / 180 / 60 + S * PI / 180 / 60 / 60
 If Z < 0 Then
 G = G * -1
 End If
 

Cells(I - 1, 7) = Round(Cells(I, 4) * Cos(H) + Cells(2, 7), 3)
Cells(I - 1, 8) = Round(Cells(I, 4) * Sin(H) + Cells(2, 8), 3)
Cells(I - 1, 9) = Round(Cells(I, 4) * Sin(G) + 1.558 + 8.781, 3)
End If

Next

End Sub