[FR] FAQ 004927 | Comment puis-je appliquer une charge thermique à une surface à l'aide de l'interface COM...

Question :
Comment puis-je appliquer une charge thermique à une surface à l'aide de l'interface COM ?

Réponse :
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()

' 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:  Si Err.Number 0 Then MsgBox Err.description, , Err.Source

Set iModelData = Nothing
iModel.GetApplication.UnlockLicense
Set 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.