Has Example

AEC Auto

Has Example

Sub Example_Has()

    ' This example will check the wall styles collection for a given wall style.
    
    Dim doc As AecArchBaseDocument
    Set doc = AecArchBaseApplication.ActiveDocument
    Dim cWallStyles As AecWallStyles
    Set cWallStyles = doc.WallStyles
    Dim styleName As String
    styleName = "Brick"
    If cWallStyles.Has(styleName) Then
    MsgBox "Wall style: ' " & styleName & " ' in drawing", vbInformation, "Has Example"
      Else
    MsgBox "Wall style: ' " & styleName & " ' not in drawing", vbInformation, "Has Example"
    End If

End Sub