Sub Example_StartUndoMark()
    ' Этот пример создает ряд линий, каждый с маркером отмены,
    ' определенным для этого. После того, как линии созданы, Вы можете
    ' переключить AutoCAD и напечатать команду Undo, и только одна линия
    ' одновременно будет уничтожена. Если запрос StartUndoMark не сделан,
    ' отмена в AutoCAD отменит все линии сразу.
    
    Dim line As AcadLine
    Dim stPnt(0 To 2) As Double
    Dim endPnt(0 To 2) As Double
    stPnt(0) = 1: stPnt(1) = 2: stPnt(2) = 0
    endPnt(0) = 2: stPnt(1) = 1: stPnt(2) = 0
    
    ' Создайте линии
    Dim j As Integer
    For j = 0 To 3
        ThisDrawing.StartUndoMark
        Set line = ThisDrawing.ModelSpace.AddLine(stPnt, endPnt)
        stPnt(0) = stPnt(0) + 3
        endPnt(0) = endPnt(0) + 3
        ThisDrawing.EndUndoMark
    Next
    ZoomAll
    
End Sub