Запустить программу RFEM/RSTAB в фоновом режиме можно посредством инициализации переменной типа «Application (interface)» и параметра «new». При использовании данной переменной затем можно либо создать новую модель методом «CreateModel», либо с помощью команды «Close» закрыть программу.
В следующем примере потом хорошо показано, каким образом можно запустить программу RSTAB, создать в ней модель с узлом и наконец закрыть ее:
Sub RSTAB_open_close()
Dim filename As Stringfilename = Application.ActiveSheet.Cells(7, 3)
' start rfemDim iApp As RSTAB8.ApplicationSet iApp = New RSTAB8.Application
iApp.LockLicenseiApp.Show
On Error GoTo E
' create model Dim iMod As RSTAB8.IModel2 Set iMod = iApp.CreateModel(filename) ' add data to model Dim nd As RSTAB8.Node nd.no = 10 nd.X = 1 nd.Y = 2 nd.Z = 3 Dim iModdata As RSTAB8.iModelData Set iModdata = iMod.GetModelData iModdata.PrepareModification iModdata.SetNode nd iModdata.FinishModification iMod.Save filename
E: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModdata = Nothing Set iMod = Nothing iApp.UnlockLicense iApp.Close Set iApp = Nothing End SubКоманда «iApp.Show» необязательна, поскольку она обеспечивает стандартное отображение программы, т.е. не в фоновом режиме.
В разделе «Загрузки» затем находится макрос программы Excel со всеми соответствующими функциями для программы RFEM и RSTAB.
Не забудьте также учесть факт, что папка, в которой создается файл, должна уже существовать.
![Пролеты на основе рисунка 5.2 из [1]](/ru/webimage/039540/3493372/01_Abmessungen_EN.png?mw=512&hash=3cc425f1463bd5981b358d5889e3109e07ae1233)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
