Enumerate_Top_Level_Dynamos方法示例
2015-12-15 22:24:46   来源：   评论：0 点击：

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

Private Sub btnEnumTopLevelDynamos_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_Top_Level_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