1096x
004927
2021-02-04

Applicazione del carico della temperatura alla superficie tramite COM

Come posso applicare un carico di temperatura a una superficie utilizzando l'interfaccia COM?


Risposta:

Un carico di temperatura è un tipo di carico di superficie e viene quindi applicato come tutti gli altri carichi di superficie. 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 Sub

Fü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.


Autore

Il signor Günthel fornisce supporto tecnico per i clienti di Dlubal Software e si prende cura delle loro richieste.

Link
Download


;