[ES] FAQ 004484 | ¿Cómo puedo mostrar las tensiones de una superficie a través de RF-COM?

Pregunta:
¿Cómo puedo mostrar las tensiones de una superficie a través de RF-COM?

Respuesta:
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.Application
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")

En caso de error, vaya a E

Si no es iModel entonces
    ' obtener la interfaz del modelo
    Establecer 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 1
    Dim iRes como RFEM5.IResults2
    Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)

    ' obtiene tensiones equivalentes
    Dim str_equ () como RFEM5.SurfaceEquivalentStresses
    str_equ = iRes.GetSurfaceEquivalentStresses (1, AtNo, VonMisesHypothesis)

End If

E:
Si el número de error es 0, entonces
    MsgBox Err.Number & " " & Err.description
End If

Si no iApp no es nada, entonces
    iApp.UnlockLicense
End 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².