回复:
通过 COM 接口可以显示面的应力。 首先,您需要模型接口 (IModel),然后是计算接口 (ICalculation2)。 使用该接口,您可以获得结果接口 (IResults2):
子应力_面_示例()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
出错时转到 E
如果不是 iModel 那么' 从模型中获取接口设置 iApp = iModel.GetApplicationiApp.LockLicense ' 得到计算接口Dim iCalc As RFEM5.ICalculation2设置 iCalc = iModel.GetCalculation ' 从荷载工况 1 的结果中获取接口将 iRes 变暗为 RFEM5.IResults2设置 iRes = iCalc.GetResultsInFeNodes(LoadCaseType, 1) ' 得到等效应力Dim str_equ() As RFEM5.SurfaceEquivalentStressesstr_equ = iRes.GetSurfaceEquivalentStresses(1, AtNo, VonMisesHypothesis) End If
E:如果 Err.Number <> 0 则MsgBox Err.Number & " " & Err.descriptionEnd If
如果不是 iApp 那么iApp.UnlockLicenseEnd If
使用 GetSurfaceEquivalentStresses 函数需要指定计算假设。 在这种情况下,显示 von Mises 应力的结果。 请注意,COM 接口使用 SI 单位,因此应力传递的单位为 N/m²。
常见问题和解答 (FAQ)