Sub Example_Coordinate()
    ' Этот пример создает ломаную линию в пространстве модели и делает
    ' запрос и изменяет координату в первой индексной позиции.
        
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
    
    ' Определите 2-ые точки ломаной линии
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
        
    ' Создайте легкий объект Polyline в пространстве модели
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
    
    ' Найдите координату в первой индексной позиции
    Dim coord As Variant
    coord = plineObj.Coordinate(0)
    MsgBox "Координата в первой индексной позиции ломаной линии: " & coord(0) & ", " _
        & coord(1) & ", " & coord(2)
    
    ' Измените координату
    coord(0) = coord(0) + 1
    plineObj.Coordinate(0) = coord
    plineObj.Update
    
    ' Сделайте запрос новой координаты
    coord = plineObj.Coordinate(0)
    MsgBox "Координата в первой индексной позиции ломаной линии - теперь: " & coord(0) & ", " _
        & coord(1) & ", " & coord(2)
    
End Sub