[ES] FAQ 004869 | ¿Cómo puedo leer la resultante de una sección a través de la interfaz COM ...

Pregunta:
¿Cómo puedo leer la resultante de una sección a través de la interfaz COM?

Respuesta:
Al igual que todos los demás resultados, la resultante de una sección se puede leer a través de IModel3 → ICalculation2 → IResults2. La interfaz con los resultados la proporciona la función GetResultant, que luego devuelve la estructura ResultantForce al especificar el número de sección y el tipo de distribución de resultados. Esta estructura incluye, entre otras cosas, las fuerzas y momentos como vectores:

Sub GetResultantSection ()
    Dim iApp As RFEM5.Application
    Dim iModel As RFEM5.model
    Set iModel = GetObject(, "RFEM5.Model")

    On Error GoTo e

    ' obtener la interfaz del modelo
    Establecer iApp = iModel.GetApplication
    iApp.LockLicense

    ' obtener la 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)

    ' obtener la resultante
    Atenuar section_resultant como resultanteForce
    section_resultant = iRes.GetResultant (1, AtNo, ConstantDistributionOnElements)

e:
Si Err.Number 0 entonces
    MsgBox Err.Number & "" & Err.description
End If

Si iApp no es nada, entonces
    iApp.UnlockLicense
End If

End Sub