960x
004184
2019-11-01

Question

How can I set the calculation parameters using the COM interface?


Answer:
The following code shows how to get different calculation parameters via the COM interface. It also shows how to specify the setting for deactivating shear stiffness:

    '   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

Under Downloads, you can find the EXCEL macro.