Enumerate_All_Dynamos 方法示例

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

Private Sub btnEnumAllDynamos_Click()

    '可用于向iFix Geometry Helper & iFIX集添加一个引用

    Dim GH As FixGeometryHelper.FixGeometryHelper ' Geometry Helper对象

    Dim DynamoCollection As Object ' Returned Collection of Dynamo Objects

    

    Set GH = Me.BuildObject("GeometryHelper")

    

    

    GH.Enumerate_All_Dynamos Me.ContainedObjects, DynamoCollection

    

    '现在用返回的图符加入自己需要的代码

    Dim aDynamo As Fix2DDynamo.Fix2DDynamo

    Dim aStr As String

    

    For Each aDynamo In DynamoCollection

        aStr = aDynamo.FullyQualifiedName '在此加入自己需要的代码。

    Next aDynamo

    

    GH.DestroyObject

End Sub