社区
参考如下规则
Dim numbers As Integer() = {Measure.ExtentsLength,Measure.ExtentsHeight, Measure.ExtentsWidth}
Array.Sort(numbers)
Array.Reverse(numbers)
MsgBox("模型长宽高=" & numbers(0) & "," & numbers(1) & "," & numbers(2), , “iLogic”)
iProperties.Value("Custom", "零部件外形尺寸")=numbers(0) & "x" & numbers(1) & "x" & numbers(2)
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
