Respuesta:
Al inicializar una variable del tipo Aplicación (interfaz) con "nuevo", se inicia RFEM/RSTAB en segundo plano. Con esta variable, también puede crear un nuevo modelo usando el método "CreateModel", o cerrar el programa usando el comando "Cerrar".
El siguiente ejemplo muestra cómo iniciar RSTAB, crear un modelo con un nudo en el programa y cerrar el programa:
Sub RSTAB_open_close ()
Atenuar nombre de archivo como cadenafilename = Application.ActiveSheet.Cells (7, 3)
' iniciar rfemAtenuar iApp como RSTAB8.Establecer iApp = New RSTAB8.Application
iApp.LockLicenseiApp.Show
En caso de error, vaya a E
' crear modeloDim iMod como RSTAB8.IModel2Establecer iMod = iApp.CreateModel (nombre de archivo) ' agregar datos al modeloDim nd As RSTAB8.Nodend.no = 10nd.X = 1nd.Y = 2nd.Z = 3 Atenuar iModdata como RSTAB8.iModelDataEstablecer iModdata = iMod.GetModelData iModdata.PrepareModificationiModdata.SetNode ndiModdata.FinishModification iMod.Save nombre de archivo
E: If Err.Number <> 0 Then MsgBox Err.description`` Err.Source Establecer iModdata = NothingEstablecer iMod = NadaiApp.UnlockLicenseiApp.CloseEstablecer iApp = Nada End SubEl comando "iApp.Show" es opcional. Esto permite mostrar el programa normalmente, no en segundo plano.
En Descargas, puede encontrar una macro de Excel con las subrutinas para RFEM y RSTAB.
Tenga en cuenta que la carpeta donde se crea el archivo debe existir.
Preguntas frecuentes (FAQ)
![Vanos basados en la figura 5.2 de [1]](/es/webimage/039540/3493372/01_Abmessungen_EN.png?mw=512&hash=3cc425f1463bd5981b358d5889e3109e07ae1233)
.png?mw=600&hash=49b6a289915d28aa461360f7308b092631b1446e)
