957x
004927
2021-02-04

Pytanie

Jak mogę przyłożyć obciążenie temperaturą do powierzchni za pomocą interfejsu COM?


Odpowiedź:

Obciążenie temperaturą jest obciążeniem powierzchniowym i dlatego jest stosowane jak wszystkie inne obciążenia powierzchniowe. W tym celu należy najpierw połączyć interfejs z modelem, następnie z obciążeniami, a na końcu ze specjalnym przypadkiem obciążenia:

Sub surface_temp_load_test ()

' pobierz interfejs z otwartego modelu i zablokuj licencję/program
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense

On Error GoTo e

Dim iModelData As RFEM5.IModelData2
Ustaw iModelData = iModel.GetModelData

Dim iLoa As RFEM5.iLoads
Ustaw iLoa = iModel.GetLoads

Dim iLc As RFEM5.ILoadCase
Ustaw iLc = iLoa.GetLoadCase (1, AtNo)

Dim surfLoad As RFEM5.SurfaceLoad

surfLoad.no = 1
surfLoad.Type = TemperatureType
surfLoad.Distribution = UniformType
surfLoad.SurfaceList = "1"
surfLoad.Magnitude1 = 10
surfLoad.Magnitude4 = 40

iLc.PrepareModification
iLc.SetSurfaceLoad surfLoad
iLc.FinishModyfikacja

e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source

Ustaw iModelData = Nic
iModel.GetApplication.UnlockLicense
Ustaw iModel = Nic

Zakończ sub

W przypadku obciążenia stałą temperaturą stosuje się parametry Wielkość 1 i Wielkość 4, gdzie Tc to Wielkość 1, a dT to Wielkość 4. W przypadku przyłożenia obciążenia zmiennego, dla pozostałych punktów narożnych dla Tc stosowane są Wielkość 2 i Wielkość 3, a dla dT wielkość 5 i 6.