997x
004927
2021-02-04

问题

如何通过 COM 接口对面施加温度荷载?


回复:

温度荷载是面荷载的一种,因此可以像所有其他面荷载一样应用。 为此,需要首先获得模型的接口,然后是荷载,最后是特殊荷载工况:

子面_temp_load_test()

' 从打开的模型中获取接口并锁定许可证/程序
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense

出错时转到 e

Dim iModelData As RFEM5.IModelData2
设置 iModelData = iModel.GetModelData

Dim iLoa As RFEM5.iLoads
设置 iLoa = iModel.GetLoads

Dim iLc As RFEM5.ILoadCase
设置 iLc = iLoa.GetLoadCase(1, AtNo)

Dim surfLoad As RFEM5.SurfaceLoad

冲浪荷载.no = 1
冲浪荷载类型 = 温度类型
surfLoad.Distribution = UniformType
surfLoad.SurfaceList = "1"
冲浪板荷载大小 1 = 10
冲浪板荷载大小 4 = 40

iLc.PrepareModification
iLc.SetSurfaceLoad surfLoad
iLc.FinishModification

e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source

设置 iModelData = 无
iModel.GetApplication.UnlockLicense
设置 iModel = 无

末端接头

对于恒定温度荷载,使用参数 幅度 1 和 幅度 4, 其中 Tc 是震级 1,dT 是震级 4。 如果施加可变荷载,则其他角点的大小 2 和 大小 3 用于 Tc,大小 5 和 大小 6 用于 dT。