MaskBlockStyles Example

MaskBlockStyles Example

Sub Example_MaskBlockStyles()

    ' This example will display the number of Mask Block Styles in the current drawing.

    Dim doc As AecBaseDocument
    Dim app As New AecBaseApplication
    Dim cMaskBlocks As AecMaskBlockStyles
        
    app.Init ThisDrawing.Application
    Set doc = app.ActiveDocument
    Set cMaskBlocks = doc.MaskBlockStyles
    MsgBox "Number of MaskBlock Styles in this drawing is: " _
      & cMaskBlocks.Count, vbInformation, "MaskBlockStyles Example"
                                   

End Sub