Sub Example_EndUndoMark()
    ' Этот пример создает ряд линий, каждая с маркером отмены,
    ' определенным для этого. После того, как линии созданы, Вы можете
    ' напечатать команду 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