Nějaká makra jsem na googlu vyloudila, ale nakonec vytvořila vlastní - prostým záznamem. Šlo to hladce :-). Díky

Nevím, zda bude takto k všeobecnému užití. Ale vložím, co mám.

Language="VBSCRIPT"



Sub CATMain()



Set productDocument1 = CATIA.ActiveDocument



Set product1 = productDocument1.Product



Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")



Dim arrayOfVariantOfBSTR1(9)

arrayOfVariantOfBSTR1(0) = "Quantity"

arrayOfVariantOfBSTR1(1) = "Product Description"

arrayOfVariantOfBSTR1(2) = "Nomenclature"

arrayOfVariantOfBSTR1(3) = "Definition"

arrayOfVariantOfBSTR1(4) = "Material"

arrayOfVariantOfBSTR1(5) = "Mass"

arrayOfVariantOfBSTR1(6) = "Comment"

arrayOfVariantOfBSTR1(7) = "Part Number"

arrayOfVariantOfBSTR1(8) = "Type"

arrayOfVariantOfBSTR1(9) = "Number"

assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1



Dim arrayOfVariantOfBSTR2(9)

arrayOfVariantOfBSTR2(0) = "Quantity"

arrayOfVariantOfBSTR2(1) = "Product Description"

arrayOfVariantOfBSTR2(2) = "Nomenclature"

arrayOfVariantOfBSTR2(3) = "Definition"

arrayOfVariantOfBSTR2(4) = "Material"

arrayOfVariantOfBSTR2(5) = "Mass"

arrayOfVariantOfBSTR2(6) = "Comment"

arrayOfVariantOfBSTR2(7) = "Part Number"

arrayOfVariantOfBSTR2(8) = "Type"

arrayOfVariantOfBSTR2(9) = "Number"

assemblyConvertor1.SetSecondaryFormat arrayOfVariantOfBSTR2



End Sub 

Přičemž proměnné Material a Mass jsou nově definovaná Properties naplněná pomocí funkce hodnotami Material z Aplikovaného Materiálu a Mass naplněna hodnotou z InertiaVolume. Obojí v dílech pomocí Start Partu, nebo importem Properties a Parametres.