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