topic Re: End Command in a loop in VBA Forum

End Command in a loop

Anonymous — Thu, 28 Jan 2010 21:25:07 GMT

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?

Re: End Command in a loop

Hallex — Thu, 28 Jan 2010 23:17:08 GMT

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'~

Re: End Command in a loop

Anonymous — Fri, 29 Jan 2010 00:43:23 GMT

Thanks so much
wrote in message news:6326711@discussion.autodesk.com...
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'~

Re: End Command in a loop

Hallex — Fri, 29 Jan 2010 08:22:26 GMT

You're welcome
And thanks to Tony Tanzillo 🙂

~'J'~