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.