Enumerate_Top_Level_Groups Method Example

The following code provides an example of the Enumerate_Top_Level_Groups method:

Public Function GetOldDynamoList(objFDS As CFixDynamoSet, ByRef colDMList As Collection) As Boolean

    Dim colFDS As CFixObjectCollection

    Dim colList As CFixObjectCollection

    Dim objDM As Object

    

    If TypeName(objFDS) = "Nothing" Or objFDS.Category <> "Dynamo Sets" Then

        GetOldDynamoList = False

        GoTo CLEAN_UP

    End If

    

    'If objHelper.ClassName <> "GeometryHelper" Then

    '    GetMasterDynamoList = False

    '    GoTo CLEAN_UP

    'End If

    

    ' clear dynamo instance list

    Do While colDMList.Count > 0

        colDMList.Remove (1)

    Loop

    

    ' get all Master Dynamos on a specified DynamoSets

    Set colFDS = objFDS.ContainedObjects

    Call PlugandSolve.GeometryHelperObj.Enumerate_Top_Level_Groups(colFDS, colList)

    If colList.Count <= 0 Then

        GetOldDynamoList = True

        GoTo CLEAN_UP

    End If

    

    For Each objDM In colList

        colDMList.Add objDM

    Next objDM

    

    GetOldDynamoList = True

CLEAN_UP:

    On Error Resume Next

    Set colList = Nothing

    Set colFDS = Nothing

    Set objDM = Nothing

    

End Function