Resposta:
Para calcular apenas determinados casos de carga, combinações de carga ou combinações de resultados, tal como o comando "Para calcular..." (ver Figura 01), pode utilizar o método CalculateBatch da interface ICalculation. Ao transferir dados, o método espera um campo com a carga do tipo Loading. Loading inclui o número e o tipo da carga (por exemplo, combinação de carga):
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 types Dim loadings(3) As Loading loadings(0).no = 1 loadings(0).Type = LoadCaseType loadings(1).no = 4 loadings(1).Type = LoadCaseType loadings(2).no = 4 loadings(2).Type = LoadCombinationType ' calculate all loadings from the array at once iCalc.CalculateBatch loadings
e: If Err.Number <> 0 Then MsgBox Err.description, , Err.Source Set iModelData = Nothing iModel.GetApplication.UnlockLicense Set iModel = Nothing
End Sub
![[EN] FAQ 005511 | O que faz cada opção na secção "Cálculo de torção" na configuração de resistência?](/pt/webimage/050088/3861275/Image__Source_Language.png?mw=320&hash=018f4c8e2ac11c8af839264f5ddfd09b108c6793)
![[EN] FAQ 005506 | Como é que posso mostrar apenas a geometria deformada e ocultar a geometria não deformada no RFEM 6/RSTAB 9?](/pt/webimage/050081/3859402/Nur_verformte_Geometrie_anzeigen_und_unverformte_Geometrie_ausblenden_5506_en.png?mw=320&hash=60881860caf0f865b93ba6d787f8a563f3df6dd5)
