CATIA VBA:设置BOM输出格式

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim assemblyConvertor1 As AssemblyConvertor
Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")

Dim arrayOfVariantOfBSTR1(4)
arrayOfVariantOfBSTR1(0) = "数量"
arrayOfVariantOfBSTR1(1) = "零件编号"
arrayOfVariantOfBSTR1(2) = "类型"
arrayOfVariantOfBSTR1(3) = "术语"
arrayOfVariantOfBSTR1(4) = "版本"
Set assemblyConvertor1Variant = assemblyConvertor1
assemblyConvertor1Variant.SetCurrentFormat arrayOfVariantOfBSTR1

Dim arrayOfVariantOfBSTR2(41)
arrayOfVariantOfBSTR2(0) = "数量"
arrayOfVariantOfBSTR2(1) = "零件编号"
arrayOfVariantOfBSTR2(2) = "编号"
arrayOfVariantOfBSTR2(3) = "类型"
arrayOfVariantOfBSTR2(4) = "源"
arrayOfVariantOfBSTR2(5) = "版本"
arrayOfVariantOfBSTR2(6) = "定义"
arrayOfVariantOfBSTR2(7) = "术语"
arrayOfVariantOfBSTR2(8) = "产品描述"
arrayOfVariantOfBSTR2(9) = "源"
arrayOfVariantOfBSTR2(10) = "默认展示源"
arrayOfVariantOfBSTR2(11) = "注释"
arrayOfVariantOfBSTR2(12) = "已命名 URL 的列表"
arrayOfVariantOfBSTR2(13) = "子级"
arrayOfVariantOfBSTR2(14) = "Object Domain ID"
arrayOfVariantOfBSTR2(15) = "Object ID"
arrayOfVariantOfBSTR2(16) = "Object Title"
arrayOfVariantOfBSTR2(17) = "Object Revision ID"
arrayOfVariantOfBSTR2(18) = "Object Kind"
arrayOfVariantOfBSTR2(19) = "Document Domain ID"
arrayOfVariantOfBSTR2(20) = "Document ID"
arrayOfVariantOfBSTR2(21) = "Document Part ID"
arrayOfVariantOfBSTR2(22) = "Document Title"
arrayOfVariantOfBSTR2(23) = "Document Revision ID"
arrayOfVariantOfBSTR2(24) = "Document Version ID"
arrayOfVariantOfBSTR2(25) = "Language Code"
arrayOfVariantOfBSTR2(26) = "Status"
arrayOfVariantOfBSTR2(27) = "pos"
arrayOfVariantOfBSTR2(28) = "qty."
arrayOfVariantOfBSTR2(29) = "ME"
arrayOfVariantOfBSTR2(30) = "BK"
arrayOfVariantOfBSTR2(31) = "ET"
arrayOfVariantOfBSTR2(32) = "identific."
arrayOfVariantOfBSTR2(33) = "'drawing number/order number'"
arrayOfVariantOfBSTR2(34) = "description"
arrayOfVariantOfBSTR2(35) = "'description ()'"
arrayOfVariantOfBSTR2(36) = "size"
arrayOfVariantOfBSTR2(37) = "material"
arrayOfVariantOfBSTR2(38) = "manufacturer"
arrayOfVariantOfBSTR2(39) = "Norm"
arrayOfVariantOfBSTR2(40) = "note"
arrayOfVariantOfBSTR2(41) = "'note ()'"
Set assemblyConvertor1Variant = assemblyConvertor1
assemblyConvertor1Variant.SetSecondaryFormat arrayOfVariantOfBSTR2

End Sub