[求助]已知两个点求角度?
各位大侠已知两个点PT1和PT2,如何用VBA求出连接这两个点的线段的角度(弧度),另外知道这条线的角度后,VBA里有没有类似LISP里的POLAR()的函数来求得顺着该角度走X距离的点,先谢谢了!
Public Function fwj(ByVal x As Double, ByVal y As Double) As Double
If x = 0 Then
If y > 0 Then
fwj = 3.14159265358979 / 2
Else
fwj = 3.14159265358979 * 1.5
End If
Else
fwj = Atn(y / x)
If x > 0 And y > 0 Then fwj = fwj
If x > 0 And y
不知道对你有帮助没有
页:
[1]