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