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

下列代码提供了Update_A_Dynamo_By_Name方法的一个示例。这一示例与出现在 中的类似。

Public Function UpdateADynamo(DynamoInstanceFullyQualifiedName As String, MasterDynamoFullyQualifiedName As String, ByRef strReturnMsg) As UpdateDynamoResult

    Dim iDataSourceOption As DynamoDataSourceOption

    Dim iResult As Long 'UpdateDynamoResult

    Dim iPrompt As Long

    iDataSourceOption = g_WizardConfig.iDataSourceOption

    If g_WizardConfig.iDataSourceOption = DYNAMO_PROMPT_FOR_CHOICE Then

        If g_ReturnFromPromptForChoice = PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_ALL Then

            iDataSourceOption = DYNAMO_UPDATE_BUT_NOT_APPLY

        ElseIf g_ReturnFromPromptForChoice = PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APPLY_TO_ALL Then

            iDataSourceOption = DYNAMO_UPDATE_AND_APPLY

        ElseIf g_ReturnFromPromptForChoice = PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_ALL Then

            iDataSourceOption = DYNAMO_NOT_UPDATE

        End If

    End If

'////// 实际更新调用

    '调用“更新图符”

    PlugandSolve.GeometryHelperObj.Update_A_Dynamo_By_Name MasterDynamoFullyQualifiedName, DynamoInstanceFullyQualifiedName, iDataSourceOption, mobjStrMgr.GetNLSStr(4069), iResult

    '获取结果串

    strReturnMsg = PlugandSolve.GeometryHelperObj.Get_Last_Result_String

    '从提示获取最后一个用户选择

    If (g_WizardConfig.iDataSourceOption = DYNAMO_PROMPT_FOR_CHOICE) And _

        (g_ReturnFromPromptForChoice = PROMPT_DLG_SEL_NONE) Then

        iPrompt = PlugandSolve.GeometryHelperObj.Get_Last_Prompt_Value

        If (iPrompt = PROMPT_DLG_SEL_UPDATE_NO_DS_APPLY_TO_ALL) Or _

            (iPrompt = PROMPT_DLG_SEL_UPDATE_ATTEMPT_MATCH_APPLY_TO_ALL) Or _

            (iPrompt = PROMPT_DLG_SEL_DO_NOT_UPDATE_APPLY_TO_ALL) Then

            g_ReturnFromPromptForChoice = iPrompt

        End If

    End If

'////// 实际更新调用结束

'////// 用于测试的样本

'    g_testcount = g_testcount + 1

'    If g_testcount = 3 Then

'        strReturnMsg = ">>>" & DynamoInstanceFullyQualifiedName & "未采用...更新 " & MasterDynamoFullyQualifiedName

'        iResult = DYNAMO_NOTUPDATED

'    ElseIf g_testcount = 150 Then

'        strReturnMsg = ">>> 用户取消"

'        iResult = DYNAMO_UPDATE_ABORTED

'    Else

'        strReturnMsg = DynamoInstanceFullyQualifiedName  & "成功更新，采用" & MasterDynamoFullyQualifiedName

'        iResult = DYNAMO_UPDATED

'    End If

'////// 测试样本结束

    If iResult <= DYNAMO_UPDATED Then

        UpdateADynamo = DYNAMO_UPDATED

    ElseIf iResult <= DYNAMO_NOTUPDATED Then

        UpdateADynamo = DYNAMO_NOTUPDATED

    Else

        UpdateADynamo = DYNAMO_UPDATE_ABORTED

    End If

End Function