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.ApplicationDim iModel As RFEM5.modelSet iModel = GetObject(, "RFEM5.Model")
W przypadku błędu Idź do E
Jeśli nie iModel jest niczym, to' pobierz interfejs z modeluUstaw iApp = iModel.GetApplicationiApp.LockLicense ' pobierz interfejs z obliczeńDim iCalc As RFEM5.ICalculation2 Set iCalc = iModel.GetCalculation ' pobierz interfejs z wyników z przypadku obciążenia 1Dim iRes As RFEM5.IResults2Ustaw iRes = iCalc.GetResultsInFeNodes (LoadCaseType, 1) ' uzyskać naprężenia równoważneDim str_equ () As RFEM5.SurfaceEquivalentNaprężeniastr_equ = iRes.GetSurfaceEquivalentNaprężenia(1, AtNo, Hipoteza VonMisesa) End If
E:Jeżeli Err.Number <>0 toMsgBox Err.Number & „ ” & Err.descriptionEnd If
Jeśli nie iApp to nic, toiApp.UnlockLicenseEnd If
Funkcja GetSurfaceEquivalentNaprężenia wymaga określenia hipotezy obliczeniowej. W tym przypadku wyświetlane są wyniki naprężeń von Misesa. Należy pamiętać, że interfejs COM wykorzystuje jednostki SI, więc naprężenie jest przekazywane w N/m².