[EN] FAQ 004927 | Jak mohu pomocí rozhraní COM aplikovat teplotní zatížení na plochu ...

Dotaz:
Jak mohu pomocí rozhraní COM aplikovat teplotní zatížení na plochu?

Odpověď:
Teplotní zatížení je typem zatížení na plochu, a proto se aplikuje stejně jako všechna ostatní zatížení na plochu. K tomu je třeba nejdříve získat rozhraní k modelu, poté k zatížení a poté ke speciálnímu zatěžovacímu stavu:

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 Sub

Pro konstantní teplotní zatížení se používají parametry Magnitude1 a Magnitude4. Zde je Tc Magnitude1 a dT je Magnitude4. Pokud použijeme proměnné zatížení, použijí se pro ostatní rohové body pro Tc Magnitude2 a Magnitude3 a pro dT analogicky Magnitude5 a Magnitude6.