等外附和导线ExcelVBA自动计算表
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
98.740 104.007 107.626 122.063 122.224
位角不需要录入
已知坐标 X 107834.720 107816.900 108317.007 108322.877 Y 57502.805 57408.325 57506.937 57783.601 函数的方位角程序
Function 方位角(起点X As Range, 起点Y As Range, 终点X As Range, 终 Application.Volatile Dim x#, y#, i x = 终点X - 起点X: y = 终点Y - 起点Y i = WorksheetFunction.Atan2(x, y) If i < 0 Then i = i + WorksheetFunction.Pi() * 2
57224.348 57552.145 57502.805 57408.325
点名 T09 33008 B1 B2 B3 B4 B5 T12 G20
角度/方位角 79°19″07.00″
边长
117°37″43.00″ 112.043 171°17″17.00″ 103.912 189°56″04.00″ 103.387 168°57″33.00″ 103.528 195°11″02.00″ 73.776
边长 147.690 146.482 107.837 179.140 76.266
点名 Ⅰ90142 Ⅰ90143 A1 A2 A3 A4 T09 T08
281°18″59.00″ 345°08″23.00″ 98°45″11.00″ 189°37″21.00″ 172°10″52.00″ 188°24″44.00″ 269°13″26.00″ 104°47″01.00″
边长
86.955 70.866 80.985
179°53″51.00″ 105.300 181°09″30.00″ 102.759 183°11″39.00″ 174°52″20.00″ 281°18″59.00″ 这组数据有问题 54.644 84.205
点名 T13 G32 A3 A2 A1 T8 Ⅱ33008
107364.584 107298.986 107834.720 107816.900
红色的是方位角不需要录入
已知点坐标 Y 点名 Ⅱ33008 T09 1 2 T13 G32 角度/方位角 259°19″07.00″ 299°18″07.00″ 179.268 174°54″48.00″ 149.311 168°31″01.00″ 185.131 266°44″24.00″ 88°47″04.00″ 边长
点名 Ⅰ90143 Ⅰ90142 A1 A2 A3 A4 Ⅱ33008 T09
角度/方位角 101°18″59.00″ 2°40″22.00″ 267°20″26.00″ 173°05″50.00″ 189°15″05.00″ 177°39″09.00″ 68°04″26.00″ 259°19″07.00″
248°22″03.00″ 159.968 4°07″12.00″ 274°46″09.00″
点名 T09 33008 A 32174 32173 32172 32171 32170 C558 G32 T13
角度/方位角 79°19″07.00″ 194°32″28.00″ 100°47″59.00″ 177°20″14.00″
角度/方位角 88°47″04.00″
边长
283°48″30.00″ 218.683 180°09″22.00″ 101.593 179°23″27.00″ 103.253 179°06″28.00″ 162.144 286°53″51.00″ 298°10″33.00″
点名 33008 T08 D4 D3 D2 D1 I90142 I90143
已知坐标 X 107816.900 107834.720 107298.986 107364.584 Y 57408.325 57502.805 57552.145 57224.348
这组数据有问题
已知坐标 X 108317.007 108322.877 107750.446 107834.720 Y 57506.937 57783.601 57660.134 57502.805
已知坐标 X 107834.72wk.baidu.com 107750.446 107298.986 107364.584 Y 57502.805 57660.134 57552.145 57224.348
已知坐标 X Y 107364.584 57224.348 107298.986 57552.145 107834.720 57502.805 107816.900 57408.325
角度/方位角 118°10″33.00″
边长
251°57″00.00″ 184.093 179°59″36.00″ 180°38″40.00″ 184°07″07.00″ 189°13″12.00″ 257°13″47.00″ 281°18″59.00″ 60.289 55.124 86.810 79.769
点号
观测角度
边长（距离）
已知点坐标 X
Ⅰ90143 2°40′22.00″ Ⅰ90142 267°20′26.00″ A1 173°05′50.00″ A2 189°15′05.00″ A3 177°39′09.00″ A4 68°04′26.00″ Ⅱ33008 T09
147.69 146.482 107.837 179.14 76.266
X 107298.986 107364.584 107816.900 107750.446
Y 57552.145 57224.348 57408.325 57660.134
ge, 终点X As Range, 终点Y As Range)
* (180 / Application.Pi())) / 24, "[h]""°""mm""′""ss.00""″""")
已知坐标 X 107816.900 107834.720 108312.216 108334.575 Y 57408.325 57502.805 57783.004 57515.021
Else i = i End If
方位角 = WorksheetFunction.Text((i * (180 / Application. End Function