GetInvisibleEdge Пример

Sub Example_GetInvisibleEdge()
    ' Этот пример создает трехмерную грань в пространстве модели.
    ' Затем переключает видимость первого края.

    Dim faceObj As Acad3DFace
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim point3(0 To 2) As Double
    Dim point4(0 To 2) As Double
    
    ' Определите четыре координаты грани
    point1(0) = 1#: point1(1) = 1#: point1(2) = 0#
    point2(0) = 5#: point2(1) = 1#: point2(2) = 1#
    point3(0) = 1#: point3(1) = 10#: point3(2) = 0#
    point4(0) = 5#: point4(1) = 5#: point4(2) = 1#
    
    ' Создайте объект 3DFace в пространстве модели
    Set faceObj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)
    ZoomAll
    
    ' Найдите текущее состояние видимости первого края грани
    Dim visStatus As Boolean
    visStatus = faceObj.GetInvisibleEdge(0)
    MsgBox "Первая грань " & IIf(faceObj.GetInvisibleEdge(0), "видима.", "невидима."), , "GetInvisibleEdge Пример"
    
    ' Переключите видимость первого края грани
    faceObj.SetInvisibleEdge 0, Not (visStatus)
    ThisDrawing.Regen False
    MsgBox "Первая грань - теперь " & IIf(faceObj.GetInvisibleEdge(0), "видима.", "невидима."), , "GetInvisibleEdge Пример"
    
End Sub
Сайт управляется системой uCoz