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
Else
i = 1
Continue While
End If
_newentLine.ColorIndex = _ColorIndex
If _LineType.ToLower = "continuous" Then
ElseIf _LineType.ToLower = "byblock" Then
Else
_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)
acBlkTblRec.AppendEntity(_newentLine)
acTrans.AddNewlyCreatedDBObject(_newentLine, True)
acTrans.Commit()
acBlkTblRec.Dispose()
acBlkTbl.Dispose()
_startpoint = _endpoint
_newentLine.Dispose()
End Using
acCurDb.Dispose()
End While
End Using
