Las deformaciones de las barras se pueden leer utilizando la función "GetMemberDeformations ()", por ejemplo. Esta función espera un número, el tipo de método de conteo para barras (número de barra/número en la lista) y qué sistema de coordenadas se debe usar. Puede seleccionar si se usa el sistema de ejes local, el sistema de ejes principal o el sistema de coordenadas global:
Sub test_results_member_axis ()
Dim iApp As RFEM5.ApplicationEstablecer iApp = GetObject (, "RFEM5.Application")
iApp.LockLicense
Dim iMod como RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
' obtener interfaz para el cálculoDim iCalc As RFEM5.ICalculation2Establecer iCalc = iMod.GetCalculation
' obtener interfaz para resultadosDim iRes como RFEM5.IResults2Establecer iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)
' obtener deformaciones en el sistema de coordenadas localDim memDefs_L () como RFEM5.MemberDeformationsmemDefs_L = iRes.GetMemberDeformations (1, AtNo, LocalMemberAxes)
' obtener deformaciones en el sistema de coordenadas globalDim memDefs_G () como RFEM5.MemberDeformationsmemDefs_G = iRes.GetMemberDeformations (1, AtNo, GlobalAxes)
' obtener deformaciones en el sistema de coordenadas principalDim memDefs_P () como RFEM5.MemberDeformationsmemDefs_P = iRes.GetMemberDeformations (1, AtNo, LocalPrincipalAxes)
e:
If Err.Number <> 0 Then MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseEstablecer iMod = Nada
End Sub
El programa pequeño lee las deformaciones locales (memDefs_L) en los ejes de la barra y los ejes principales (memDefs_P) y las deformaciones globales en los ejes de la barra (memDefs_G).