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ę/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData As RFEM5.IModelData2Ustaw iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoadsUstaw iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCaseUstaw iLc = iLoa.GetLoadCase (1, AtNo)
Dim surfLoad As RFEM5.SurfaceLoad
surfLoad.no = 1surfLoad.Type = TemperatureTypesurfLoad.Distribution = UniformTypesurfLoad.SurfaceList = "1"surfLoad.Magnitude1 = 10surfLoad.Magnitude4 = 40
iLc.PrepareModificationiLc.SetSurfaceLoad surfLoadiLc.FinishModyfikacja
e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source
Ustaw iModelData = NiciModel.GetApplication.UnlockLicenseUstaw 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.