New Member
Posts: 1
Registered: ‎03-09-2012
Message 1 of 3 (246 Views)
Accepted Solution

How to Break loop for enter key

246 Views, 2 Replies
03-09-2012 01:58 AM

I tried the following code posted in the forum, but i need to know how to break the loop when right click/ Enter Key is pressed.


Following is the code i used:


Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

        Dim acCurEd As Editor = acDoc.Editor

        Using lock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument

            Dim ppo As PromptPointOptions = New PromptPointOptions(vbCrLf & "Select Insertion Point:")

            Dim ppr As PromptPointResult = acCurEd.GetPoint(ppo)

            Dim _startpoint, _endpoint As Point3d

            If ppr.Status = PromptStatus.OK Then

                _startpoint = ppr.Value

            End If


            AddLayer(_LayName, True) 

            Dim i As Integer = 0


            While i = 0

                Dim acCurDb As Database = acDoc.Database



                Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

                    Dim _newentLine As New Line

                    ppo = New PromptPointOptions(vbCrLf & "Select Next Point")


                    ppo.BasePoint = _startpoint    

                    ppo.UseBasePoint = True       


                    ppr = acCurEd.GetPoint(ppo)



                    If ppr.Status = PromptStatus.OK Then

                        _endpoint = ppr.Value


                        i = 1

                        Continue While

                    End If


                    _newentLine.ColorIndex = _ColorIndex

                    If _LineType.ToLower = "continuous" Then

                    ElseIf _LineType.ToLower = "byblock" Then


                        _LineType = "ByLayer"

                    End If


                    _newentLine.StartPoint = _startpoint

                    _newentLine.EndPoint = _endpoint


                    _newentLine.Linetype = _LineType

                    _newentLine.LineWeight = _LineWeight

                    _newentLine.Layer = _LayName



                    Dim acBlkTbl As BlockTable = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite)

                    Dim acBlkTblRec As BlockTableRecord = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)


                    acTrans.AddNewlyCreatedDBObject(_newentLine, True)






                    _startpoint = _endpoint



                End Using


            End While

        End Using


*Expert Elite*
Posts: 8,592
Registered: ‎06-29-2007
Message 2 of 3 (236 Views)

Re: How to show the Scaling and Angle

03-09-2012 02:07 AM in reply to: NachiBang



>> but i need to know how to break the loop when right click/ Enter Key is pressed

check the possible values in this line

If ppr.Status = .....


- alfred -

Ingenieur Studio HOLLAUS ... www.hollaus.at
Valued Contributor
Posts: 81
Registered: ‎03-06-2012
Message 3 of 3 (234 Views)

Re: How to show the Scaling and Angle

03-09-2012 02:10 AM in reply to: NachiBang

Use the following line which helps you to break the loop for right click/ enter key



ppo.AllowNone = True

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Are you interested in helping shape the Autodesk Community?
We’re looking at a few different ways to improve the “All Forums” landing page and need your feedback! If interested, please take a few minutes to fill out the following Usability Study. Thank you for your time!

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community