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
转载于:https://www.cnblogs.com/fanxingthink/p/4176161.html