Trying to use getpoint
Trying to use getpoint
(OP)
I'm trying to select points in a drawing and get those points into Notepad or Excel. I can't get the getpoints command to work from a VBA form. I hide the form but keep getting errors on the "With ThisDrawing.Utility" line. I guess I don't have something defined correctly. Any help would be appreciated.





RE: Trying to use getpoint
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: Trying to use getpoint
Thanks
Private Sub CommandButton1_Click()
Me.Hide
Dim varPoint As Variant
Dim varPick(2) As Double
With ThisDrawing.Utility
For i = 1 To 3
varPoint = .GetPoint(, vbCr & "Pick a point: ")
If varPoint(0) = "" Then End
MsgBox "You selected " & vbCr & varPoint(0) & "," & varPoint(1)
Next i
End With
End Sub