994x
004927
2021-02-04

Pregunta

¿Cómo puedo aplicar una carga de temperatura a una superficie usando la interfaz COM?


Respuesta:

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/program
Atenuar iModel como RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense

On Error GoTo e

Atenuar iModelData como RFEM5.IModelData2
Establecer iModelData = iModel.GetModelData

Atenuar iLoa como RFEM5.iLoads
Establecer iLoa = iModel.GetLoads

Dim iLc como RFEM5.ILoadCase
Establecer iLc = iLoa.GetLoadCase (1, AtNo)

Atenuar surfLoad como 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.FinishModificación

e: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source

Establecer iModelData = Nothing
iModel.GetApplication.UnlockLicense
Establecer 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.