Enumerate_Top_Level_Dynamos Method Example

The following code provides an example of the Enumerate_Top_Level_Dynamos method:

Private Sub btnEnumTopLevelDynamos_Click()

    ' Useful to add a reference to iFix Geometry Helper & iFIX Collection

    Dim GH As FixGeometryHelper.FixGeometryHelper ' Geometry Helper object

    Dim DynamoCollection As Object ' Returned Collection of Dynamo Objects

    

    Set GH = Me.BuildObject("GeometryHelper")

    

    GH.Enumerate_Top_Level_Dynamos Me.ContainedObjects, DynamoCollection

    

    ' Now do something useful with the returned Dynamos

    Dim aDynamo As Fix2DDynamo.Fix2DDynamo

    Dim aStr As String

    

    For Each aDynamo In DynamoCollection

        aStr = aDynamo.FullyQualifiedName ' Do something useful here.

    Next aDynamo

    

    GH.DestroyObject

End Sub