proe二次开发vb模式创建参数示例

Dim ower As IpfcParameterOwner
            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