Une charge thermique est un type de charge surfacique et est donc appliquée comme toutes les autres charges surfaciques. Pour ce faire, vous devez d'abord obtenir l'interface avec le modèle, puis avec les charges, puis avec le cas de charge spécial :
Sub surface_temp_load_test()
'obtenir l'interface du modèle ouvert et verrouiller la licence/le programmeDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData en tant que RFEM5.IModelData2Set iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoadsSet iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCaseSet 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.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
Set iModelData = NothingiModel.GetApplication.UnlockLicenseSet iModel = Nothing
End Sub
Pour une charge à température constante, les paramètres Magnitude1 et Magnitude4 sont utilisés, où Tc est Magnitude1 et dT est Magnitude4. Si une charge variable est appliquée, Magnitude2 et Magnitude3 sont utilisées pour les autres points de coin pour Tc et Magnitude5 et Magnitude6 pour dT.