Enumerate_Top_Level_Groups 方法示例

下列代码提供了 Enumerate_Top_Level_Groups 方法的一个示例：

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

    

    '清空图符实例列表

    Do While colDMList.Count > 0

        colDMList.Remove (1)

    Loop

    

    '获取指定 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