Ответ:
Поскольку температурная нагрузка является одним из типов нагрузки на поверхность, она применяется так же, как и все остальные нагрузки на поверхность. То есть, сначала нужно получить интерфейс к модели, затем к нагрузкам и наконец к специальному загружению:
Sub surface_temp_load_test()
' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e
Dim iModelData As RFEM5.IModelData2Set iModelData = iModel.GetModelData
Dim iLoa As RFEM5.iLoadsSet iLoa = iModel.GetLoads
Dim iLc As RFEM5.ILoadCaseSet iLc = iLoa.GetLoadCase(1, AtNo)
Dim surfLoad As RFEM5.SurfaceLoad
surfLoad.no = 1surfLoad.Type = TemperatureTypesurfLoad.Distribution = UniformTypesurfLoad.SurfaceList = "1"surfLoad.Magnitude1 = 10surfLoad.Magnitude4 = 40
iLc.PrepareModificationiLc.SetSurfaceLoad surfLoadiLc.FinishModification
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source
Set iModelData = NothingiModel.GetApplication.UnlockLicenseSet iModel = Nothing
End Sub
Для постоянной температурной нагрузки используются параметры «Magnitude1» и «Magnitude4», где Tc - это Magnitude1, а dT - Magnitude4. В случае переменных нагрузок потом используются для остальных угловых точек Tc параметры Magnitude2 и Magnitude3, а для dT - Magnitude5 и Magnitude6.