Odpowiedź:
Podobnie jak wszystkie inne wyniki, wypadkową przekroju można odczytać poprzez IModel3 → ICalculation2 → IResults2. Interfejs do wyników zapewnia funkcja GetResultant, która po podaniu numeru przekroju i rodzaju rozkładu wyników zwraca strukturę ResultantForce. Na konstrukcję tę składają się, między innymi, wektory sił i momentów:
Sub GetResultantSection ()
Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")
On Error GoTo e
' pobierz interfejs z modelu
Ustaw iApp = iModel.GetApplication
iApp.LockLicense
' pobierz interfejs z obliczeń
Dim iCalc As RFEM5.ICalculation2
Set iCalc = iModel.GetCalculation
' uzyskaj interfejs z wyników z przypadku obciążenia 1
Dim iRes As RFEM5.IResults2
Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)
' uzyskać Wypadkową
Dim przekrój_wypadkowy jako siła wypadkowa
section_resultant = iRes.GetResultant(1, AtNo, ConstantDistributionOnElements)
e:
Jeżeli Err.Number <>0 to
MsgBox Err.Number & „ ” & Err.description
End If
Jeśli nie iApp to nic, to
iApp.UnlockLicense
End If
Zakończ sub
Dlubal_KohlA.png?mw=350&hash=6f6b192b31c8bbcb1c62aa6cf9fbfb1d9f859880)
.png?mw=512&hash=a2d64046b1b82d01d353d39d4a145023e6992bce)
