Count Example

Count Example

Sub Example_Count()
    
    ' This example will display the number of MultiView Block Styles in the current drawing.

    Dim doc As AecArchBaseDocument
    Dim cMvBlockStyles As AecMVBlockStyles
    
    Set doc = AecArchBaseApplication.ActiveDocument
    
    Set cMvBlockStyles = doc.MVBlockStyles
    MsgBox "Number of MVBlock Styles in this drawing is: " & cMvBlockStyles.count, vbInformation, "Count Example"
    

End Sub