Odpowiedź:
Odkształcenia prętów można odczytać na przykład za pomocą funkcji "GetMemberDeformations (). Funkcja ta oczekuje numeru, rodzaju metody liczenia prętów (nr pręta/numer na liście) oraz układu współrzędnych, który ma zostać zastosowany. Można wybrać, czy ma zostać zastosowany lokalny układ osi, główny układ osi czy globalny układ współrzędnych:
Sub test_results_member_axis ()
Dim iApp As RFEM5.ApplicationUstaw iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
Dim iMod As RFEM5.IModel3Set iMod = iApp.GetActiveModel
On Error GoTo e
'pobierz interfejs do obliczeńDim iCalc As RFEM5.ICalculation2Ustaw iCalc = iMod.GetCalculation
'pobierz interfejs do wynikówDim iRes As RFEM5.IResults2Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)
'otrzymuj deformacje w lokalnym układzie współrzędnychDim memDefs_L () As RFEM5.MemberDeformationsmemDefs_L = iRes.GetMemberDeformations (1, AtNo, osie lokalne)
'otrzymuj deformacje w globalnym układzie współrzędnychDim memDefs_G () As RFEM5.MemberDeformationsmemDefs_G = iRes.GetMemberDeformations(1, AtNo, GlobalAxes)
'otrzymuj deformacje w głównym układzie współrzędnychDim memDefs_P () As RFEM5.MemberDeformationsmemDefs_P = iRes.GetMemberDeformations (1, AtNo, LocalPrincipalAxes)
e:
Jeżeli Err.Number <> 0 to MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicenseUstaw iMod = Nic
Zakończ sub
Mały program odczytuje lokalne odkształcenia (memDefs_L) w osiach pręta i osiach głównych (memDefs_P) oraz globalne odkształcenia w osiach pręta (memDefs_G).
.png?mw=512&hash=a2d64046b1b82d01d353d39d4a145023e6992bce)
