子测试参数()
Dim iApp As RFEM5.Application
Set iApp = GetObject(, "RFEM5.Application")
iApp.LockLicense
将 j 调暗为整数
j = iApp.GetModelCount
Dim iMod As RFEM5.IModel3
设置 iMod = iApp.GetActiveModel
出错时转到 e
Dim formParams() As RFEM5.FormulaParameter
' 获取所有公式参数
formParams = iMod.GetFormulaParameters
' 删除所有公式参数
iMod.CleanFormulaParameters
' 设置公式参数列表
ReDim 保留 formParams(0 到 UBound(formParams, 1) + 1)
formParams(UBound(formParams, 1)).Name = "p"
formParams(UBound(formParams, 1)).Unit = "m"
formParams(UBound(formParams, 1)).UnitType = LengthUnitType
formParams(UBound(formParams, 1)).Value = 0
formParams(UBound(formParams, 1)).ValueType = DoubleType
formParams(UBound(formParams, 1)).Comment = "新建参数"
formParams(UBound(formParams, 1)).Formula = "b/3"
formParams(UBound(formParams, 1)).RangeOfValues = "(3;5.5>"
iMod.SetFormulaParameters formParams
e:
如果 Err.Number <> 0 那么 MsgBox Err.description, vbCritical, Err.Source
iMod.GetApplication.UnlockLicense
设置 iMod = 无
末端接头