MVBlockStyles Example

AEC Auto

Sub Example_MVBlockStyles()
    
    ' 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, "MVBlockStyles Example"

End Sub

previous page start next page