Risposta:
Per calcolare solo casi di carico specifici, combinazioni di carico o combinazioni di risultati allo stesso modo del comando "Da calcolare..." (vedere l'immagine 01), è possibile utilizzare il metodo CalculateBatch dell'interfaccia ICalculation. Per il trasferimento, il metodo prevede un campo con il tipo di carico Loading. Questo carico include il numero del carico e il tipo (ad esempio, una combinazione di carico):
Sub batch_test() ' get interface from the opened model and lock the licence/programDim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
On Error GoTo e ' get interface for calculationOscura iCalc come ICalcolo2Imposta iCalc = iModel.GetCalculation ' crea array con tipi di caricamentoCarichi dim (3) come caricamentocaricamenti(0).no = 1loadings(0).Type = LoadCaseType caricamenti(1).no = 4loadings(1).Type = LoadCaseType carichi (2).no = 4loadings(2).Type = LoadCombinationType ' calcola tutti i caricamenti dall'array contemporaneamenteiCalc.Calcola caricamenti batch
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Imposta iModelData = NienteiModel.GetApplication.UnlockLicense Set iModel = Nothing
End Sub
