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

最新推荐文章于 2023-11-16 10:09:21 发布

Joe-Fan

最新推荐文章于 2023-11-16 10:09:21 发布

阅读量4.2k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/fanxingthink/article/details/9288393

PTC 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一段VBA代码示例，该代码用于在Creo软件中通过VBA设置模型参数。具体操作包括获取当前模型、创建或更新指定名称的参数及其值，并调用特定方法完成参数设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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