CATIA二次开发(VBA)——遍历装配获取信息(如BOM物料清单)

装配产品的基本信息包含实例名称、零件编号、文档路径等，上代码：

Private Sub GetProductInfomation(ByVal oSubProd As Product)

Dim jj As Integer

Dim oSubProds As Products

Set oSubProds = oSubProd.Products

CurNames = CurNames & oSubProd.PartNumber & "(" & oSubProd.name & ")<>" & oSubProd.ReferenceProduct.Parent.fullname & "||"

For jj = 1 To oSubProds.Count

If oSubProds.Item(jj).HasAMasterShapeRepresentation() Then

oSubProds.Item(jj).name'获取实例名称

oSubProds.Item(jj).PartNumber'获取零件编号

oSubProds.Item(jj).GetMasterShapeRepresentationPathName'获取文档路径

Else

Dim oSubSubProds As Products

Set oSubSubProds = oSubProds.Item(jj).Products

If oSubSubProds.Count > 0 Then

Call GetProductInfomation(oSubProds.Item(jj))

End If

End If

Next

End Sub

示例如下：

通过获取装配产品信息，可以进一步地对CATIA装配做更多的管理，如出BOM表等，示例如下：

代码仅供参考，欢迎交流！