用兩點坐標求線的角度！如果實現！

login1986

用两点坐标求线的角度！如果实现！

zhuxuhong

你可以先将两点连成直线,再查询直线.angle属性

iq0050

Public Function CalculateLineAngle(ByVal vStartPoint As Variant, ByVal vEndPoint As Variant) As Double
  On Error Resume Next
 
  Dim X As Double
  Dim Y As Double
 
  X = vEndPoint(0) - vStartPoint(0)
  Y = vEndPoint(1) - vStartPoint(1)
  If (X > 0 And Y > 0) Or (X > 0 And Y < 0) Then CalculateLineAngle = Atn(Y / X)
  If (X < 0 And Y > 0) Or (X < 0 And Y < 0) Then CalculateLineAngle = PI + Atn(Y / X)
  If X = 0 Then
    If Y < 0 Then CalculateLineAngle = -PI / 2
    If Y > 0 Then CalculateLineAngle = PI / 2
  End If
  If Y = 0 Then
    If X < 0 Then CalculateLineAngle = PI
    If X > 0 Then CalculateLineAngle = 0
  End If
  If Abs(CalculateLineAngle - 0) < dbJudgeAngle Then CalculateLineAngle = 0
  If CalculateLineAngle < 0 Then CalculateLineAngle = 2 * PI + CalculateLineAngle
 
End Function

iq0050

还有dbJudgeAngle是我定义的常量

const dbJudgeAngle=0.001

login1986

谢谢各位！！！呵～～

 

crazylsp

二楼方法直接，三楼是求Y/X正切值再反正切

cqy

这函数很有用！