End Command in a loop

[Anonymous]

Hello,

Im new on VBA, so please bear with me. What I'm trying to do is to be able
to end a command when desired. Right now I have a GoTo estatement to
repeat a process where is going to keep asking me for selection of objects
and some input information. How can I have the user to stop this Loop when
is desired to end the command?
An example below is ilustrated. Help would be appreciated.

Line1:
pnt = ThisDrawing.Utility.GetPoint(, "Select Point on Surface: ")
srfelev = oSurf.FindElevationAtXY(pnt(0), pnt(1))
Dim overt As Integer
ofet.Elevation = srfelev + eldif
GoTo Line1

How to end this process?

[Hallex]

I like this nice code:

{code}
'' written by Tony Tanzillo
'' request check "Break on Unhandled Errors" in General options
Public Sub LoopExample()
Dim Msg As String
Msg = vbCrLf & "First point: "
Dim MyPoint As Variant
Do
On Error Resume Next
MyPoint = ThisDrawing.Utility.GetPoint(, Msg)
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0

' Process the entered point here:
ThisDrawing.ModelSpace.AddCircle MyPoint, 10#
Msg = vbCrLf & "Next point or ENTER to exit: "
Loop
On Error GoTo 0

End Sub
{code}

~'J'~

[Anonymous]

Thanks so much
wrote in message news:[email protected]...
I like this nice code:

{code}
'' written by Tony Tanzillo
'' request check "Break on Unhandled Errors" in General options
Public Sub LoopExample()
Dim Msg As String
Msg = vbCrLf & "First point: "
Dim MyPoint As Variant
Do
On Error Resume Next
MyPoint = ThisDrawing.Utility.GetPoint(, Msg)
If Err Then
Err.Clear
Exit Do
End If
On Error GoTo 0

' Process the entered point here:
ThisDrawing.ModelSpace.AddCircle MyPoint, 10#
Msg = vbCrLf & "Next point or ENTER to exit: "
Loop
On Error GoTo 0

End Sub
{code}

~'J'~

[Hallex]

You're welcome
And thanks to Tony Tanzillo 🙂

~'J'~