Sub Example_SetBulge()
    'Этот пример создает легкую ломаную линию в пространстве модели.
    'Затем находит и изменяет выпуклость для данной доли.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    
    'Определите 2D точки ломаной линии
    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
    points(10) = 4: points(11) = 1
        
    'Создайте легкий объект Polyline в пространстве модели
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    
    'Найдите выпуклость третьей доли
    Dim currentBulge As Double
    currentBulge = plineObj.GetBulge(3)
    MsgBox "Выпуклость для третьей доли " & plineObj.GetBulge(3), , "SetBulge Пример"
    
    'Измените выпуклость третьей доли
    plineObj.SetBulge 3, -0.5
    plineObj.Update
    MsgBox "Выпуклость для третьей доли - теперь " & plineObj.GetBulge(3), , "SetBulge Пример"
    
End Sub