Odpowiedź:
Obciążenie temperaturą jest obciążeniem powierzchniowym i dlatego jest stosowane jak wszystkie inne obciążenia powierzchniowe. Dazu muss zunächst die Schnittstelle zum Modell, dann zu den Lasten und dann zum speziellen Lastfall geholt werden:
Sub surface_temp_load_test()
' get interface from the opened model and lock the licence/program
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData As RFEM5.IModelData2
Set iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoads
Set iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCase
Set 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.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
Set iModelData = Nothing
iModel.GetApplication.UnlockLicense
Set iModel = Nothing
End SubFür eine konstante Temperaturlast werden die Parameter Magnitude1 und Magnitude4 verwendet. Dabei ist Tc Magnitude1 und dT Magnitude4. Wenn eine veränderliche Last angelegt wird, werden für die weiteren Eckpunkte für Tc dann Magnitude2 und Magnitude3 verwendet und bei dT analog Magnitude5 und Magnitude6.
