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
PTC【Creo OR Proe】添加參數的方法
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.