Resposta:
Ao iniciar uma variável do tipo Aplicação (interface) com "new", o RFEM/RSTAB é iniciado em segundo plano. Com esta variável, também pode criar um novo modelo utilizando o método "CreateModel" ou fechar o programa utilizando o comando "Close".
O exemplo a seguir mostra como iniciar o RSTAB, criar um modelo com um nó no programa e fechar, novamente, o programa:
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 SubO comando "iApp.Show" é opcional. Este permite apresentar o programa normalmente e não em segundo plano.
Em Downloads, pode encontrar uma macro do Excel com as sub-rotinas para o RFEM e o RSTAB.
Tenha em atenção que a pasta onde o ficheiro é criado tem de existir.
![[EN] FAQ 005502 | Como é que redefini as configurações de visualização para a configuração padrão?](/pt/webimage/050032/3850808/Image__EN.png?mw=320&hash=96e207723247d602a0e0a8110eb60d39f4195c0d)
