[求助]请帮忙看下这个程序，急！急！急！

yoyo520125

目的是选取任意两点计算方位角，代码如下：
Sub calculateangel()
    Dim point1 As Variant
    Dim point2 As Variant
    p1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "第一点:")
    p2 = ThisDrawing.Utility.GetPoint(, vbCrLf & "第二点:")
    Const pi As Single = 3.14
    Dim x As Double
    Dim y As Double
    Dim z As Double
    Dim ang1to2 As Double
    x = point1(0) - point2(0)
    y = point1(1) - point2(1)
    z = point1(2) - point2(2)
    ang1to2 = pi - Sgn(y) * pi / 2 - Atn(y / x)
    MsgBox "两点之间的方位角为:" & ang1to2, , "个计算单位"
End Sub
希望高手尽快给个解答！

yoyo520125

为什么没有人帮忙看下这个程序啊 ？

目的就是选取任意两个点计算角度，我不知道哪里出错了。

我是根据计算两点距离而编辑的程序

yshf

怎么将point1改为P1,point2改为P2了!!!!

3. Sub calculateangel()
4.     Dim point1 As Variant
5.     Dim point2 As Variant
6.     point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "第一点:")
7.     point2 = ThisDrawing.Utility.GetPoint(point1, vbCrLf & "第二点:")
8.     Const pi As Single = 3.14
9.     Dim x As Double
10.     Dim y As Double
11.     Dim z As Double
12.     Dim ang1to2 As Double
13.     x = point1(0) - point2(0)
14.     y = point1(1) - point2(1)
15.     z = point1(2) - point2(2)
16.     ang1to2 = pi - Sgn(y) * pi / 2 - Atn(y / x)
17.     MsgBox "两点之间的方位角为:" & ang1to2, , "个计算单位"
18. End Sub

Sub calculateangel()     Dim point1 As Variant     Dim point2 As Variant     point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "第一点:")     point2 = ThisDrawing.Utility.GetPoint(point1, vbCrLf & "第二点:")     Const pi As Single = 3.14     Dim x As Double     Dim y As Double     Dim z As Double     Dim ang1to2 As Double     x = point1(0) - point2(0)     y = point1(1) - point2(1)     z = point1(2) - point2(2)     ang1to2 = pi - Sgn(y) * pi / 2 - Atn(y / x)     MsgBox "两点之间的方位角为:" & ang1to2, , "个计算单位" End Sub

清风明月名字

谢谢3楼分享，学习一下