[求助]：连续获取多个点

winabcd

我想在VBA中连续得到多个点（用鼠标点取），数量不定，鼠标右击结束取点，我用循环语句（DO。。。。LOOP）加上GETPOINT来取点，但取第二点时就出错，请大侠指教。
          这里先谢谢！！

雪山飞狐(lzh)

你的代码呢？好像以前我贴过这样的程序，你先搜索一下吧

winabcd

这是我的代码:
Private Sub cmdGetPoint_Click()
   Dim pa As Variant
   Dim s1 As String
   Dim Check
   Dim pc(0 To 2) As Double
   Me.Hide
   Check = True
   s1 = ""
   i = 0
   Do
     pa = ThisDrawing.Utility.GetPoint(, "点取插入点:")
     pc(0) = pa(0): pc(1) = pa(1): pc(2) = pa(2)
     s1 = s1 & "Xpos=" & str(pc(0)) & "   Ypos=" & str(pc(1)) & vbCrLf
     i = i + 1
     If Not pa Then Check = False
   Loop Until Check = False
   MsgBox (s1)
   Me.Show
End Sub

错在哪，请指教。

雪山飞狐(lzh)

Private Sub cmdGetPoint_Click()
On Error GoTo ErrHandle
Dim pnt
Dim picked As Boolean
Me.Hide
Do While 1
pnt = ThisDrawing.Utility.GetPoint
picked = True
Loop
ErrHandle:
If picked Then MsgBox pnt(0) & "," & pnt(1)
Me.Show
End Sub

winabcd

我试过了，很好用，谢谢斑竹。