如何在BOM表中提取所有零件的规格(长宽高三个尺寸)
吴艺君 6年前 回答
以下是使用Inventor ilogic的实现方法:
1.对零模板件添加自动获取规格尺寸的规则;
iLogic代码:
'获取模型的总长、总高doc = ThisDoc.DocumentDim oCompDef As PartComponentDefinitionoCompDef = doc.ComponentDefinitionDim oPt1 As Point, oPt2 As PointoPt1 = oCompDef.RangeBox.MaxPointoPt2 = oCompDef.RangeBox.MinPointDim X As Double, Y As Double, Z As DoubleX = Abs(oPt1.X - oPt2.X)Y = Abs(oPt1.Y - oPt2.Y)Z = Abs(oPt1.Z - oPt2.Z)iProperties.Value("Custom", "长")=Round(X*10, 0)iProperties.Value("Custom", "高")=Round(Z*10, 0)iProperties.Value("Custom", "宽")=Round(Y*10, 0)
2.修改部件BOM模板;
3.多实体设计使用方法
吴艺君 6年前 回答
以下是使用Inventor ilogic的实现方法:
1.对零模板件添加自动获取规格尺寸的规则;
iLogic代码:
'获取模型的总长、总高
doc = ThisDoc.Document
Dim oCompDef As PartComponentDefinition
oCompDef = doc.ComponentDefinition
Dim oPt1 As Point, oPt2 As Point
oPt1 = oCompDef.RangeBox.MaxPoint
oPt2 = oCompDef.RangeBox.MinPoint
Dim X As Double, Y As Double, Z As Double
X = Abs(oPt1.X - oPt2.X)
Y = Abs(oPt1.Y - oPt2.Y)
Z = Abs(oPt1.Z - oPt2.Z)
iProperties.Value("Custom", "长")=Round(X*10, 0)
iProperties.Value("Custom", "高")=Round(Z*10, 0)
iProperties.Value("Custom", "宽")=Round(Y*10, 0)
2.修改部件BOM模板;
3.多实体设计使用方法