全站仪专题

全站仪角度定向，极坐标解算

Sub 导入全站仪数据() Dim Filename As Variant, myText, S, mArr() As String, narr() As String Dim i, y As Long, j As Long Filename = ThisWorkbook.Path & "\1112X.GT7" '指定文件字符串 j = 1 Wit

全站仪角度自由定向

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,

VBA批量导入全站仪数据

Sub 批量导入数据() Dim Filename As Variant, myText, S, mArr() As String, narr() As String Dim i, y As Long, j As Long Filename = ThisWorkbook.Path & "\1112X.GT7" '指定文件字符串 j = 1 Wi

python实现全站仪三角高程测量计算

一、介绍在大比例尺地形图测绘过程中，通过三角高程测量来获取控制点的高程。已知起始点A的高程，首先测站定为A，目标站定为B，盘左盘右分别读取竖直角读数（建议设置为垂直角90）和斜距，量取仪器高与目标高，由此A到B往测结束。之后在B点架设全站仪，返测A点，重复上述观测方法，完成A到B往返观测。以此类推。二、组织数据刚刚读取的盘左盘右竖直角即为半测回值，取平均求得一测回