This is pretty cool too for getting points returned to you in the immediate window
Sub GetpointsAll()
Dim pnt1 As Variant
Dim pnt2 As Variant
Dim pnt3 As Variant
Dim pnt4 As Variant
Dim pnt5 As Variant
Dim pnt6 As Variant
Dim pnt7 As Variant
Dim pnt8 As Variant
Dim pnt9 As Variant
On Error Resume Next
With ThisDrawing.Utility
pnt1 = .GetPoint(, vbCrLf & "pnt1 ")
pnt2 = .GetPoint(, vbCrLf & "pnt2 ")
pnt3 = .GetPoint(, vbCrLf & "pnt3 ")
pnt4 = .GetPoint(, vbCrLf & "pnt4 ")
pnt5 = .GetPoint(, vbCrLf & "pnt5 ")
pnt6 = .GetPoint(, vbCrLf & "pnt6 ")
pnt7 = .GetPoint(, vbCrLf & "pnt7 ")
pnt8 = .GetPoint(, vbCrLf & "pnt8 ")
pnt9 = .GetPoint(, vbCrLf & "pnt9 ")
End With
Debug.Print "Pnt1: "; pnt1(0) & "," & pnt1(1)
Debug.Print "Pnt2: "; pnt2(0) & "," & pnt2(1)
Debug.Print "Pnt3: "; pnt3(0) & "," & pnt3(1)
Debug.Print "Pnt4: "; pnt4(0) & "," & pnt4(1)
Debug.Print "Pnt5: "; pnt5(0) & "," & pnt5(1)
Debug.Print "Pnt6: "; pnt6(0) & "," & pnt6(1)
Debug.Print "Pnt7: "; pnt7(0) & "," & pnt7(1)
Debug.Print "Pnt8: "; pnt8(0) & "," & pnt8(1)
Debug.Print "Pnt9: "; pnt9(0) & "," & pnt9(1)
End Sub
The On Error Resume Next takes care of un picked points, you will just need to enter through any points you don't pick
So, for example; if you pick Pnt1,Pnt2,Pnt3 and Pnt4; you will need to press enter 5 times to get to the end of the sub.
I'm sure I could do more to address un picked points but this was just down and dirty to get some results
Mark