当前位置:你问我答 >  详情

【测绘算法】计算方位角

Public Const pi As Double = 3.14159265358979
Public Function Azimuth(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
  Dim dx As Double, dy As Double, temp As Double
  dx = x2 - x1: dy = y2 - y1
  If dy <> 0 Then
     temp = pi * (1 - Sgn(dy) / 2) - Atn(dx / dy)
     Azimuth = temp * 180 / pi
  Else
     Azimuth = IIf(dx > 0, 0, 180)
  End If
End Function 

全部评论

等级:LV30
积分:113861
岩柯 2019-11-30 13:35
现在不用工程计算器了
回复 0
AcadApp这个不是工程计算器,这个是编程用的。
2019-11-30 15:51:31
等级:LV28
积分:26346
知足常乐 2019-12-02 06:47
能看懂,会运用的估计少之又少
回复 0
等级:LV30
积分:650
兵哥哥 2019-12-07 05:47
楼上说得对啊,
回复 0
等级:LV24
积分:8285
新手34592 2019-12-11 10:12
老师傅用计算器,年轻的用软件。计算方法慢慢就忘了
回复 0
AcadApp这是程序源代码,不是计算机,ok!你应该知道方位角是干嘛用的吧。
2019-12-11 10:51:35
等级:LV25
积分:41541
AcadApp 2019-12-11 10:51
不是计算器。
回复 0
1

提交
悬赏回复规则
1、悬赏期为24小时,从发布时间起算;
2、悬赏期内提问者如设置评论为“精选评论”,视为悬赏结束,该精选评论人将获得本题全部悬赏积分;
3、悬赏期内如提问者未设置“精选评论”,则前5位评论者平分悬赏积分(如仅有一位评论,该评论者获得50%悬赏积分);
4、悬赏积分会自动发放到生态圈账户中,请留意站内信通知。
知道了

距离打开宝箱还剩7

是否花费200积分补签?
确认
取消