CATIA装配树遍历提取属性做BOM

一朵梨花

小弟想将CATIA装配树遍历提取属性做BOM，用Bill Of Material只录下了如下的代码，
遍历的语句没有体现出来，不知道如何编写，哪位达人指导一下小弟，谢谢！
－－－－－－－－－－－－－－－－－－－－－－－
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")
Dim arrayOfVariantOfBSTR1(4)
arrayOfVariantOfBSTR1(0) = "Quantity"
arrayOfVariantOfBSTR1(1) = "Part Number"
arrayOfVariantOfBSTR1(2) = "Type"
arrayOfVariantOfBSTR1(3) = "Nomenclature"
arrayOfVariantOfBSTR1(4) = "Revision"
assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1
Dim arrayOfVariantOfBSTR2(1)
arrayOfVariantOfBSTR2(0) = "Quantity"
arrayOfVariantOfBSTR2(1) = "Part Number"
assemblyConvertor1.SetSecondaryFormat arrayOfVariantOfBSTR2
assemblyConvertor1.Print "XLS", "C:\Documents and Settings\yanghaiting\桌面\2.xls", product1
End Sub
－－－－－－－－－－－－－－－－－－

gelvshi782

圈圈眉

murongjun

圈圈眉

一朵梨花