[求助]已知两个点求角度?

vocabulary · 发表于 2007-4-18 14:24:00

各位大侠
已知两个点PT1和PT2,如何用VBA求出连接这两个点的线段的角度(弧度),另外知道这条线的角度后,VBA里有没有类似LISP里的POLAR()的函数来求得顺着该角度走X距离的点,先谢谢了!

fjfhgdwfn · 发表于 2007-4-18 20:57:00

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
不知道对你有帮助没有

[求助]已知两个点求角度?

发表回复

精选推荐