Risposta:
Inizializzando una variabile di tipo Applicazione (interfaccia) con "nuovo", RFEM/RSTAB viene avviato in background. Con questa variabile, è anche possibile creare un nuovo modello utilizzando il metodo "Crea modello" o chiudere il programma utilizzando il comando "Chiudi".
Il seguente esempio mostra come avviare RSTAB, creare un modello con un nodo nel programma e chiudere il programma:
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 modelDim iMod As RSTAB8.IModel2Set iMod = iApp.CreateModel(filename) ' add data to modelDim nd As RSTAB8.Nodend.no = 10nd.X = 1nd.Y = 2nd.Z = 3 Dim iModdata As RSTAB8.iModelDataSet iModdata = iMod.GetModelData iModdata.PrepareModificationiModdata.SetNode nd iModdata.FinishModification iMod.Save filename
E: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModdata = NothingSet iMod = Nothing iApp.UnlockLicenseiApp.Close Set iApp = Nothing End SubIl comando "iApp.Show" è opzionale. Ciò consente di visualizzare il programma normalmente, e non in background.
Nei download troverai una macro Excel con sottoprogrammi per RFEM e RSTAB.
Si noti che la cartella in cui è stato creato il file deve esistere.
