Configuração dos parâmetros de cálculo através da interface COM

O seguinte código de exemplo mostra como obter diferentes parâmetros de cálculo através da interface COM. Também é demonstrado como especificar uma configuração para desativar a rigidez de corte:

1. código.vb#
2. ' get model interface
3. Set iApp = iModel.GetApplication()
4. iApp.LockLicense
6. ' get calculation interface
7. Dim iCalc As RFEM5.ICalculation2
8. Set iCalc = iModel.GetCalculation
10. ' get surface bending theory
11. Dim calc_bend As RFEM5.BendingTheoryType
12. calc_bend = iCalc.GetBendingTheory
14. ' get settings for nonlinearities
15. Dim calc_nl As RFEM5.CalculationNonlinearities
16. calc_nl = iCalc.GetNonlinearities
18. ' get precision and tolerance settings
19. Dim calc_prec As RFEM5.PrecisionAndTolerance
20. calc_prec = iCalc.GetPrecisionAndTolerance
22. ' get calculation settings
23. Dim calc_sets As RFEM5.CalculationSettings
24. calc_sets = iCalc.GetSettings
26. ' get calculation options
27. Dim calc_opts As RFEM5.CalculationOptions
28. calc_opts = iCalc.GetOptions
30. ' set ShearStiffness to false
31. calc_opts.ShearStiffness = False
32. iCalc.SetOptions calc_opts

No anexo, encontra uma macro do EXCEL para descarregar.

Opções selecionadas para modificar os parâmetros de cálculo através da interface COM