Sub Example_AddVertex()
    ' Этот пример создает легкую ломаную линию в пространстве модели.
    ' Затем добавляет вершину к ломаной линии.

    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    
    
    ' Определите 2-ые точки ломаной линии
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
        
    ' Создайте легкий объект Polyline в пространстве модели
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    MsgBox "Добавьте вершину до конца ломаной линии.", , "AddVertex Пример"
    
    ' Определите новую вершину
    Dim newVertex(0 To 1) As Double
    newVertex(0) = 4: newVertex(1) = 1
    
    ' Добавьте вершину к ломаной линии
    plineObj.AddVertex 5, newVertex
    plineObj.Update
    MsgBox "Вершина добавила.", , "AddVertex Пример"
    
End Sub