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