Pytanie:
Jak wyświetlić naprężenia powierzchni za pomocą RF-COM?
Odpowiedź:
Naprężenia powierzchni można wyświetlić za pomocą interfejsu COM. Najpierw potrzebujesz interfejsu do modelu (IModel), a następnie interfejsu do obliczeń (ICalculation2). Za pomocą tego interfejsu można uzyskać interfejs dla wyników (IResults2):
Sub transitions_surfaces_example ()
Dim iApp As RFEM5.Application
Dim iModel As RFEM5.model
Set iModel = GetObject(, "RFEM5.Model")
W przypadku błędu Idź do E
Jeśli nie iModel jest niczym, to
' pobierz interfejs z modelu
Ustaw iApp = iModel.GetApplication
iApp.LockLicense
' pobierz interfejs z obliczeń
Dim iCalc As RFEM5.ICalculation2
Set iCalc = iModel.GetCalculation
' pobierz interfejs z wyników z przypadku obciążenia 1
Dim iRes As RFEM5.IResults2
Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1)
' uzyskać naprężenia równoważne
Dim str_equ () As RFEM5.SurfaceEquivalentNaprężenia
str_equ = iRes.GetSurfaceEquivalentNaprężenia(1, AtNo, Hipoteza VonMisesa)
End If
E:
Jeżeli błąd nr 0, to
MsgBox Err.Number & „ ” & Err.description
End If
Jeśli nie iApp to nic, to
iApp.UnlockLicense
End If
Funkcja GetSurfaceEquivalentStresses wymaga określenia hipotezy obliczeniowej. W tym przypadku wyświetlane są wyniki naprężenia von Misesa. Należy pamiętać, że interfejs COM wykorzystuje jednostki SI, a zatem naprężenie jest przenoszone w N/m².