960x
004184
2019-11-01

问题

在COM接口中如何设置计算参数?


回复:
下面的代码展示了如何通过 COM 接口获取不同的计算参数。 它还显示了如何指定停用抗剪刚度的设置:

' 获取模型接口
设置 iApp = iModel.GetApplication()
iApp.LockLicense
    
' 获取计算接口
Dim iCalc As RFEM5.ICalculation2
设置 iCalc = iModel.GetCalculation
    
' 得到面弯曲理论
Dim calc_bend As RFEM5.BendingTheoryType
calc_bend = iCalc.GetBendingTheory
    
' 获取非线性设置
Dim calc_nl As RFEM5.CalculationNonlinearities
calc_nl = iCalc.GetNonlinearities
    
' 获取精度和容差设置
Dim calc_prec As RFEM5.PrecisionAndTolerance
calc_prec = iCalc.GetPrecisionAndTolerance
    
' 获取计算设置
Dim calc_sets As RFEM5.CalculationSettings
calc_sets = iCalc.GetSettings
    
' 获取计算选项
Dim calc_opts As RFEM5.CalculationOptions
calc_opts = iCalc.GetOptions
    
' 设置剪切刚度为假
calc_opts.ShearStiffness = False
iCalc.SetOptions calc_opts

在下载下,您可以找到 EXCEL 宏。