Sub Example_ConstantWidth()
     ' Этот пример создает легкую ломаную линию в пространстве модели и
     ' использует свойство ConstantWidth, чтобы определить, включает ли
     ' ломаная линия равные доли ширины. Если доли не равны, использует
     ' свойство ConstantWidth, чтобы установить все доли на ту же самую
     ' ширину.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
    Dim msg As String, CWidth 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)
    ThisDrawing.Application.ZoomAll
    
    ' Информация сегмента отображения перед изменением ширины доли 1
    GoSub DISPLAYSEGMENTS
    
    ' Установите первую ширину доли
    plineObj.SetWidth 1, 0.1, 0.3
    ThisDrawing.Regen acAllViewports
    
    ' Информация сегмента отображения после изменения ширины доли 1
    GoSub DISPLAYSEGMENTS
    
    ' Делайте всю униформу долей по ширине
    plineObj.ConstantWidth = 0.1
    ThisDrawing.Regen acAllViewports
    
    ' Информация сегмента отображения после
    GoSub DISPLAYSEGMENTS
    
    Exit Sub
    
DISPLAYSEGMENTS:
    On Error Resume Next
    
    ' Выясните, если размеры доли однородны
    CWidth = plineObj.ConstantWidth
    
    ' Если ConstantWidth возвращает ошибку, доли - не все равны по ширине
    If Err.Description = "Invalid input" Then
        msg = " не равны."
    Else
        msg = " равны."
    End If
    On Error GoTo 0
    
    MsgBox "Доли новой ломаной линии" & msg
    
    Return
End Sub

Сайт управляется системой uCoz