[ZH] FAQ 004484 | 如何通过 RF-COM 显示面的应力？

问题：
如何通过 RF-COM 显示面的应力？

答案：
通过 COM 接口可以显示面的应力。 首先，您需要模型接口 (IModel)，然后是计算接口 (ICalculation2)。 使用该接口，您可以获得结果接口 (IResults2)：

子应力_面_示例()
Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")

出错时转到 E

如果不是 iModel 那么
    ' 从模型中获取接口
    设置 iApp = iModel.GetApplication
    iApp.LockLicense

    ' 得到计算接口
    Dim iCalc As RFEM5.ICalculation2
    设置 iCalc = iModel.GetCalculation

    ' 从荷载工况 1 的结果中获取接口
    将 iRes 变暗为 RFEM5.IResults2
    设置 iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1)

    ' 得到等效应力
    Dim str_equ() As RFEM5.SurfaceEquivalentStresses
    str_equ = iRes.GetSurfaceEquivalentStresses(1, AtNo, VonMisesHypothesis)

End If

E:
如果 Err.Number 0 则
    MsgBox Err.Number & " " & Err.description
End If

如果不是 iApp 那么
    iApp.UnlockLicense
End If

模版功能 GetSurfaceEquivalentStresses verlangt die Angabe der Berechnungshypothese。 此外，在这种情况下显示的还是 von Mises 应力。 请注意，COM 接口使用的是 SI 单位，因此应力的单位为 N/m²。