问题：
如何通过 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。