1215x
004337
2020-02-07

问题

如何通过 COM 接口使用命令只计算特定的荷载工况、荷载组合或结果组合?


回复:

为了像“计算...”命令(见图 01)一样只计算特定的荷载工况、荷载组合或结果组合,您可以使用 ICalculation 接口的计算批量方法。 对于传递,该方法需要一个荷载类型为 Loading 的字段。 该荷载作用包括荷载的编号和类型(例如荷载组合):

子批次测试()
    
' 从打开的模型中获取接口并锁定许可证/程序
Dim iModel As RFEM5.IModel3
Set iModel = GetObject(, "RFEM5.Model")
iModel.GetApplication.LockLicense
    

出错时转到 e
    
' 获取计算接口
Dim iCalc As ICalculation2
设置 iCalc = iModel.GetCalculation
    
' 创建加载类型数组
调光荷载(3)
荷载(0).no = 1
Loads(0).Type = LoadCaseType
    
荷载(1).no = 4
Loads(1).Type = LoadCaseType
    
荷载(2).no = 4
Loads(2).Type = LoadCombinationType
    
' 一次计算数组中的所有荷载
iCalc.CalculateBatch 荷载

e: 如果 Err.Number <> 0 那么 MsgBox Err.description, , Err.Source
    
设置 iModelData = 无
iModel.GetApplication.UnlockLicense
设置 iModel = 无

末端接头