Sub Example_Closed()
    ' Этот пример создает ломаную линию и затем переключает установку Closed.
    Dim plineObj As AcadPolyline
    Dim closedState As String

    ' Создайте ломаную линию
    Dim points(8) As Double
    points(0) = 3: points(1) = 7: points(2) = 0
    points(3) = 9: points(4) = 2: points(5) = 0
    points(6) = 3: points(7) = 5: points(8) = 0
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)

    ' Установите закрытое свойство на True
    plineObj.Closed = True      ' Close Polyline
    ThisDrawing.Regen (True)
    GoSub DISPLAY

    ' Откройте PolyLine, урегулировав закрытое свойство False
    plineObj.Closed = False      ' Open Polyline
    ThisDrawing.Regen (True)
    GoSub DISPLAY

    Exit Sub

DISPLAY:
    ' Отыщите, и покажите свойство Closed
    closedState = IIf(plineObj.Closed, "Closed", "Open")
    MsgBox "Новый Polyline: " & closedState, vbInformation, "Closed Пример"
    Return
End Sub

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