Réponse:
L'exemple de code suivant montre comment définir différents paramètres de calcul via l'interface COM. Il explique également comment définir un paramètre pour désactiver la rigidité de cisaillement :
' 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
La macro EXCEL correspondante est disponible au téléchargement ci-dessous.