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

    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