Odpowiedź:
Inicjalizacja zmiennej typu Aplikacja (interfejs) przy użyciu opcji „Nowa” powoduje, że program RFEM/RSTAB jest uruchamiany w tle. Przy pomocy tej zmiennej można również utworzyć nowy model metodą „CreateModel”, lub zamknąć program za pomocą polecenia „Zamknij”.
Poniższy przykład pokazuje, jak uruchomić program RSTAB, w programie utworzyć model z węzłem i zamknąć program:
Sub RSTAB_open_close ()
Dim nazwa pliku As Stringnazwa pliku = Application.ActiveSheet.Cells (7, 3)
' uruchom program RFEMDim iApp As RSTAB8.ApplicationUstaw iApp = Nowy RSTAB8.Application
iApp.LockLicenseiApp.Show
W przypadku błędu Idź do E
' utwórz modelDim iMod As RSTAB8.IModel2Ustaw iMod = iApp.CreateModel(nazwa pliku) ' dodaj dane do modeluDim nd As RSTAB8.Nodend.no = 10nd.X = 1nd.Y = 2nd.Z = 3 Dim iModdata As RSTAB8.iModelDataUstaw iModdata = iMod.GetModelData iModdata.PrepareModificationiModdata.SetNode ndiModdata.FinishModification Nazwa pliku iMod.Save
E: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source Ustaw iModdata = NicUstaw iMod = NiciApp.UnlockLicenseiApp.ZamknijUstaw iApp = Nic Zakończ subPolecenie "iApp.Show" jest opcjonalne. Pozwala to na wyświetlanie programu w zwykły sposób, a nie w tle.
W sekcji Pobrane znajduje się makro Excela z podprogramami dla programów RFEM i RSTAB.
Należy pamiętać, że folder, w którym został utworzony plik, musi istnieć.
.png?mw=512&hash=a2d64046b1b82d01d353d39d4a145023e6992bce)
