Enumerate_All_Dynamos Method Example

The following code provides an example of the Enumerate_All_Dynamos method:

Private Sub btnEnumAllDynamos_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_All_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