IsVisible Example

Land Auto

IsVisible Example

Sub Example_IsVisible()
    
    ' This example returns the visibility setting for the
    ' first face item in the collection.
    Dim surf As AeccSurface
    Dim face As AeccFace
    Set surf = AeccApplication.ActiveProject.Surfaces.Item(0)
    Set face = surf.Outputs.Faces.Item(0)
    
    ' Checks if the Face is visible
    If face.IsVisible = True Then
        MsgBox "The first Face in the collection is Visible!", vbInformation, "IsVisible Example"
    Else
        MsgBox "The first Face in the collection is Invisible!", vbInformation, "IsVisible Example"
    End If
    
End Sub