970x
004184
2019-11-01

Pergunta

Como é que se configuram os parâmetros de cálculo através da interface COM?


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

' get model interface
Set iApp = iModel.GetApplication()
iApp.LockLicense
    
' get calculation interface
Dim iCalc As RFEM5.ICalculation2
Set iCalc = iModel.GetCalculation
    
' get surface bending theory
Dim calc_bend As RFEM5.BendingTheoryType
calc_bend = iCalc.GetBendingTheory
    
' get settings for nonlinearities
Dim calc_nl As RFEM5.CalculationNonlinearities
calc_nl = iCalc.GetNonlinearities
    
' get precision and tolerance settings
Dim calc_prec As RFEM5.PrecisionAndTolerance
calc_prec = iCalc.GetPrecisionAndTolerance
    
' get calculation settings
Dim calc_sets As RFEM5.CalculationSettings
calc_sets = iCalc.GetSettings
    
' get calculation options
Dim calc_opts As RFEM5.CalculationOptions
calc_opts = iCalc.GetOptions
    
' set ShearStiffness to false
calc_opts.ShearStiffness = False
iCalc.SetOptions calc_opts

No anexo, encontra uma macro do EXCEL para descarregar.