社区
试试如下规则
doc = ThisDoc.Document
Dim odocCompDef As ComponentDefinition = doc.ComponentDefinition
Dim oUParams As UserParameters =odocCompDef.Parameters.UserParameters
Dim oUParam As UserParameter
Try
oUParam = oUParams.Item("cache")
Catch
oUParam = oUParams.AddByValue("cache",宽/10, "mm" )
End Try
If cache <> 宽 Then
MsgBox("参数""宽""发生了变化!", , "iLogic")
cache = 宽
End If
If my post answers your question, please click the "Accept as Solution" button. This helps everyone find answers more quickly!
如果我的回帖解决了您的问题,请点击 "接受为解决方案" 按钮. 这可以帮助其他人更快的找到解决方案!
王 承之
Autodesk AGN [Inventor 俱乐部] Leader
Inventor Club | Bilibili