回复:
下面的代码展示了如何通过 COM 接口获取不同的计算参数。 它还显示了如何指定停用抗剪刚度的设置:' 获取模型接口设置 iApp = iModel.GetApplication()iApp.LockLicense ' 获取计算接口Dim iCalc As RFEM5.ICalculation2设置 iCalc = iModel.GetCalculation ' 得到面弯曲理论Dim calc_bend As RFEM5.BendingTheoryTypecalc_bend = iCalc.GetBendingTheory ' 获取非线性设置Dim calc_nl As RFEM5.CalculationNonlinearitiescalc_nl = iCalc.GetNonlinearities ' 获取精度和容差设置Dim calc_prec As RFEM5.PrecisionAndTolerancecalc_prec = iCalc.GetPrecisionAndTolerance ' 获取计算设置Dim calc_sets As RFEM5.CalculationSettingscalc_sets = iCalc.GetSettings ' 获取计算选项Dim calc_opts As RFEM5.CalculationOptionscalc_opts = iCalc.GetOptions ' 设置剪切刚度为假calc_opts.ShearStiffness = FalseiCalc.SetOptions calc_opts
在下载下,您可以找到 EXCEL 宏。