Nastavení parametrů výpočtu pomocí rozhraní COM

    '   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