Dim ower As IpfcParameterOwner
Dim pro As IpfcParameter
Dim px As Double
ower = CType(model, IpfcParameterOwner)
pro = ower.GetParam("posx")
Dim pro As IpfcParameter
Dim px As Double
ower = CType(model, IpfcParameterOwner)
pro = ower.GetParam("posx")
px=pro.GetScaledValue.DoubleValue '获取double类参数值
Private Sub setlen(ByVal name As String, ByVal var As String)
Dim prop As IpfcParameterOwner
Dim myprop As IpfcParameter
Dim myprop_v As IpfcParamValue
prop = CType(model, IpfcParameterOwner)
myprop = prop.GetParam(name)
myprop_v = pro_tool.createParamValueFromString(var)
myprop.SetScaledValue(myprop_v, Nothing)‘设置参数的值
End Sub