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.