[EN] FAQ 004484 | Jak wyświetlić naprężenia powierzchni za pomocą RF-COM?

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².