MassGroups Example

MassGroups Example

Sub Example_MassGroups()

    ' This example will display the number of Mass Groups in the current drawing.

    Dim app As New AecBaseApplication
    Dim Aecdoc As AecBaseDocument
    Dim massgroups As AecMassGroups
   
    app.Init ThisDrawing.Application
     
    Set Aecdoc = app.ActiveDocument
    Set Aecdoc = AecArchBaseApplication.ActiveDocument
    Set massgroups = Aecdoc.massgroups       
    MsgBox "There are " & massgroups.count & " mass groups in this drawing"                             

End Sub