Чтобы рассчитать только определенные загружения, сочетания нагрузок или расчетные сочетания таким же способом, как и с командой «К расчету ...» (см. Рисунок 01), рекомендуем воспользоваться методом CalculateBatch, доступном в интерфейсе ICalculation. Но помните, что для передачи метод ожидает поле с типом нагрузки Loading, в котором указан номер нагрузки и ее тип (например, сочетание нагрузок):
Sub batch_test() ' get interface from the opened model and lock the licence/program Dim iModel As RFEM5.IModel3 Set iModel = GetObject(, "RFEM5.Model") iModel.GetApplication.LockLicense
On Error GoTo e ' get interface for calculation Dim iCalc As ICalculation2 Set iCalc = iModel.GetCalculation ' create array with loading typesDim loadings(3) As Loadingloadings(0).no = 1loadings(0).Type = LoadCaseType loadings(1).no = 4loadings(1).Type = LoadCaseType loadings(2).no = 4loadings(2).Type = LoadCombinationType ' calculate all loadings from the array at onceiCalc.CalculateBatch loadings
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing
End Sub