Inicializací proměnné typu Application (Interface) parametrem "new" se spustí program RFEM/RSTAB na pozadí. Tato proměnná slouží k vytvoření nového modelu pomocí metody "CreateModel" nebo k ukončení programu příkazem "Close".
Následující příklad ukazuje, jak se spustí program RSTAB, poté program vytvoří model s uzlem a program se ukončí:
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
Příkaz "iApp.Show" je volitelný. Ten zajišťuje, že se program nezobrazí na pozadí, ale zobrazí se normálně.
V sekci Ke stažení najdete makro programu Excel s podprogramy pro RFEM a RSTAB.
Je nutné vzít do úvahy, že složka, ve které se soubor vytvoří, musí existovat.