Get_Last_Result_String 方法示例

下列代码提供了Get_Last_Result_String方法的一个示例，该方法出现在 Project_PlugandSolve VBA工程的modDynamoUpdater模块中。

Public Function UpdateADynamo(objDynamoInstance As Fix2DDynamo.Fix2DDynamo, objMasterDynamo As Fix2DDynamo.Fix2DDynamo, ByRef strReturnMsg) As UpdateDynamoResult

    Dim strDIName As String

    Dim strDMName As String

    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_Ref objMasterDynamo, objDynamoInstance, 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

'    strDIName = objDynamoInstance.Name

'    strDMName = objMasterDynamo.Name

'    If g_testcount = 3 Then

‘        strReturnMsg = ">>>" & strDIName & "未用 " & strDMName 更新 

'        iResult = DYNAMO_NOTUPDATED

'    ElseIf g_testcount = 150 Then

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

'        iResult = DYNAMO_UPDATE_ABORTED

'    Else

'        strReturnMsg = strDIName & "成功更新，采用" & strDMName

'        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

如需在上下文中查看这一代码：

1. 在经典视图中，从工作台菜单选择“Visual Basic编辑器”。

- 或 -

在 Ribbon 视图中，单击主页选项卡上工作台组中的“Visual Basic Editor”。

2. 在树状图中，双击Project_PlugandSolve文件夹，然后Modules文件夹，最后modDynamoUpdater。
3. 搜索UpdateADynamo以找到这一代码。