Cálculo de casos de carga, combinações de carga ou combinações de resultados específicos através da interface COM

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):

1. código.vb#

Sub batch_test()

' get interface from the opened model and lock the licence/program

1. Dim iModel As RFEM5.IModel3
2. Set iModel = GetObject(, "RFEM5.Model")
3. iModel.GetApplication.LockLicense

On Error GoTo e

1. ' get interface for calculation
2. Dim iCalc As ICalculation2
3. Set iCalc = iModel.GetCalculation
5. ' create array with loading types
6. Dim loadings(3) As Loading
7. loadings(0).no = 1
8. loadings(0).Type = LoadCaseType
10. loadings(1).no = 4
11. loadings(1).Type = LoadCaseType
13. loadings(2).no = 4
14. loadings(2).Type = LoadCombinationType
16. ' calculate all loadings from the array at once
17. iCalc.CalculateBatch loadings

e: If Err.Number <> 0 Then MsgBox Err.Description, , Err.Source

1. Set iModelData = Nothing
2. iModel.GetApplication.UnlockLicense
3. Set iModel = Nothing

End Sub
#/code#

FAQ

[PT] FAQ 004337 | Como é que posso calcular apenas casos de carga, combinações de carga ou combinações de resultados específicos ...

Função "Para calcular ..." no programa