Dim PtOne As PromptPointResult = ed.GetPoint("Start Point: ")
Dim PtTwo As PromptPointResult = ed.GetPoint("End Point: ")
Dim line As New Line(PtOne.Value, PtTwo.Value)
Dim bt As BlockTable = CType(tm.GetObject(db.BlockTableId, OpenMode.ForRead, False), BlockTable)
Dim btr As BlockTableRecord = CType(tm.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False), BlockTableRecord)
btr.AppendEntity(line)
tm.AddNewlyCreatedDBObject(line, True)
myT.Commit()
How do you get that rubber-band line from the first selected point to the second point?
Can you?