PTC【Creo OR Proe】添加参数的方法

最新推荐文章于 2022-10-06 11:35:13 发布

Joe-Fan

最新推荐文章于 2022-10-06 11:35:13 发布

阅读量3.9k

点赞数

分类专栏： PTC 文章标签： PTC

本文链接：https://blog.csdn.net/fanxingthink/article/details/9288393

版权

PTC 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Dim model As IpfcModel
        Try
            model = CoCreoAsyncConnection.Session.CurrentModel
            If model Is Nothing Then
                Throw New Exception("Model not present")
            End If
            Dim pOwner As IpfcParameterOwner
            pOwner = CType(model, IpfcParameterOwner)
            Dim pv As IpfcParamValue
            Dim p As IpfcParameter
            pv = (New CMpfcModelItem).CreateStringParamValue("123")
            p = pOwner.GetParam("NAME")
            If p Is Nothing Then
                pOwner.CreateParam("NAME", pv)
            Else
                Dim LstrValue As String = p.GetScaledValue.StringValue
            End If
            run.createParametersFromProperties(model, model.Origin)
        Catch ex As Exception
            MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
        End Try