Aby obliczyć tylko określone przypadki obciążeń, kombinacje obciążeń lub kombinacje wyników, w taki sam sposób, jak przy użyciu polecenia "Obliczyć..." (patrz rysunek 01), można użyć metody CalculateBatch interfejsu ICalculation. W przypadku transferu metoda oczekuje pola z typem obciążenia Obciążenie. To Obciążenie zawiera numer obciążenia i typ (na przykład kombinację obciążeń):
Subbatch_test () ' pobierz interfejs z otwartego modelu i zablokuj licencję/programDim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense
On Error GoTo e ' pobierz interfejs do obliczeń Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation ' utwórz tablicę z typami obciążeńObciążenia wymiarami (3) As obciążenieobciążenia (0).no = 1obciążenia (0). Typ = LoadCaseType obciążenia(1) .no = 4obciążenia (1). Typ = LoadCaseType obciążenia(2).no = 4obciążenia(2). Typ = LoadCombinationType ' obliczy wszystkie obciążenia z tablicy narazobciążenia iCalc.CalculateBatch
e: Jeżeli Err.Number <> 0 to MsgBox Err.description, , Err.Source Ustaw iModelData = NiciModel.GetApplication.UnlockLicenseUstaw iModel = Nic
Zakończ sub