Una carga de temperatura es un tipo de carga superficial y, por lo tanto, se aplica como todas las demás cargas superficiales. Para hacer esto, primero es necesario obtener la interfaz con el modelo, luego con las cargas y luego con el caso de carga especial:
Sub surface_temp_load_test ()
' get interface from the opened model and lock the licence/programAtenuar iModel como RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e
Atenuar iModelData como RFEM5.IModelData2Establecer iModelData = iModel.GetModelData
Atenuar iLoa como RFEM5.iLoadsEstablecer iLoa = iModel.GetLoads
Dim iLc como RFEM5.ILoadCaseEstablecer iLc = iLoa.GetLoadCase (1, AtNo)
Atenuar surfLoad como RFEM5.SurfaceLoad
surfLoad.no = 1surfLoad.Type = TemperatureTypesurfLoad.Distribution = UniformTypesurfLoad.SurfaceList = "1"surfLoad.Magnitude1 = 10surfLoad.Magnitude4 = 40
iLc.PrepareModificationiLc.SetSurfaceLoad surfLoadiLc.FinishModificación
e: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source
Establecer iModelData = NothingiModel.GetApplication.UnlockLicenseEstablecer iModel = Nada
End Sub
Para una carga de temperatura constante, se utilizan los parámetros Magnitud1 y Magnitud4, donde Tc es Magnitud1 y dT es Magnitud4. Si se aplica una carga variable, Magnitud2 y Magnitud3 se usan para los otros puntos de esquina para Tc, y Magnitud5 y Magnitud6 para dT.