939x
004184
2019-11-01

Вопрос

Как настроить параметры расчета с помощью интерфейса COM?


Ответ:
В следующем коде показано, как получить различные параметры расчета через интерфейс COM. Здесь также показано, как задать настройку для деактивации жесткости на сдвиг:

' получить интерфейс модели
Set iApp = iModel.GetApplication()
iApp.LockLicense
    
' получить интерфейс расчета
Dim iCalc As RFEM5.ICalculation2
Set iCalc = iModel.GetCalculation
    
' получить теорию изгиба поверхностей
Размер calc_bend как в RFEM5.
calc_bend = iCalc.GetBendingTheory
    
' получить настройки для нелинейностей
Dim calc_nl As RFEM5.CalculationNonlinearities
calc_nl = iCalc.GetNonlinearities
    
' получить настройки точности и допуска
Размер calc_prec как в RFEM5.PrecisionAndTolerance
calc_prec = iCalc.GetPrecisionAndTolerance
    
' получить настройки расчета
Размеры calc_sets в соответствии с RFEM5.CalculationSettings
calc_sets = iCalc.GetSettings
    
' получить параметры расчета
Размер calc_opts как в RFEM5.CalculationOptions
calc_opts = iCalc.GetOptions
    
' установить для ShearStiffness значение false
calc_opts.ShearStiffness = False
iCalc.SetOptions calc_opts

В разделе «Загрузки» находится макрос EXCEL.