Las tensiones de una superficie se pueden mostrar a través de la interfaz COM. Primero, necesita la interfaz para el modelo (IModel) y luego la interfaz para el cálculo (ICalculation2). Usando esta interfaz, puede obtener la interfaz para los resultados (IResults2):
Subtension_superficies_ejemplo ()Dim iApp As RFEM5.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
En caso de error, vaya a E
Si no es iModel entonces' obtener la interfaz del modeloEstablecer iApp = iModel.GetApplication iApp.LockLicense ' obtener interfaz del cálculo Dim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' obtener la interfaz de los resultados del caso de carga 1Dim iRes como RFEM5.IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) ' obtiene tensiones equivalentesDim str_equ () como RFEM5.SurfaceEquivalentStressesstr_equ = iRes.GetSurfaceEquivalentStresses (1, AtNo, VonMisesHypothesis) End If
E:If Err.Number <> 0 ThenMsgBox Err.Number & "" & Err.descriptionEnd If
Si iApp no es nada, entoncesiApp.UnlockLicenseEnd If
La función GetSurfaceEquivalentStresses requiere la especificación de la hipótesis de cálculo. En este caso, se muestran los resultados de la tensión de von Mises. Tenga en cuenta que la interfaz COM usa unidades SI, por lo que la tensión se transfiere en N/m².