为了像“计算...”命令(见图 01)一样只计算特定的荷载工况、荷载组合或结果组合,您可以使用 ICalculation 接口的计算批量方法。 对于传递,该方法需要一个荷载类型为 Loading 的字段。 该荷载作用包括荷载的编号和类型(例如荷载组合):
子批次测试() ' 从打开的模型中获取接口并锁定许可证/程序Dim iModel As RFEM5.IModel3Set iModel = GetObject(, "RFEM5.Model")iModel.GetApplication.LockLicense
出错时转到 e ' 获取计算接口Dim iCalc As ICalculation2设置 iCalc = iModel.GetCalculation ' 创建加载类型数组调光荷载(3)荷载(0).no = 1Loads(0).Type = LoadCaseType 荷载(1).no = 4Loads(1).Type = LoadCaseType 荷载(2).no = 4Loads(2).Type = LoadCombinationType ' 一次计算数组中的所有荷载iCalc.CalculateBatch 荷载
e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source 设置 iModelData = 无iModel.GetApplication.UnlockLicense设置 iModel = 无
末端接头