Domanda:
Come posso applicare un carico di temperatura a una superficie utilizzando l'interfaccia COM?
Risposta:
Un carico di temperatura è un tipo di carico superficiale e viene quindi applicato come tutti gli altri carichi superficiali. Per fare ciò, è necessario prima ottenere l'interfaccia al modello, quindi ai carichi e quindi al caso di carico speciale:
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 come RFEM5.IModelData2
Imposta iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoads
Imposta iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCase
Imposta 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.FinishModifica
e: If Err.Number 0 Then MsgBox Err.description, , Err.Source
Imposta iModelData = Niente
iModel.GetApplication.UnlockLicense
Imposta iModel = Niente
End Sub
Per un carico a temperatura costante, vengono utilizzati i parametri Magnitudo1 e Magnitudo4, dove Tc è magnitudo1 e dT è magnitudo4. Se viene applicato un carico variabile, magnitudo 2 e magnitudo 3 sono utilizzati per gli altri punti d'angolo per Tc e magnitudo 5 e magnitudo 6 per dT.