Trying to use getpoint

[jrice174]

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.

 

[borgunit]

Could we see some code? Thanks.

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[jrice174]

I got it working just as I received this answer. I got this far but I'm sure I'll be asking more later.

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