---

Hallo Zusammen,

Kann mir jemand sagen wie man ein benutzerdefiniertes Format für die Stückliste definieren kann?
CatiaV5R14

Bzw. wie man die gewünschten Spalten in die Stückliste dauernd festlegen kann.

Im Moment nach jedem neue Start vom Catia man muß dem Format für die Stückliste neu definieren.

Ich danke euch im Voraus.

------------------
Mit freundlichen Grüßen
Johnny

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Habe mir ein kleines Makro gebastelt welches die Stückliste als Excelfile ausgibt. Es hat zwar einige Fehler die behoben werden müssen doch im moment reicht es mir...

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) = "Nummer"
    arrayOfVariantOfBSTR1(1) = "Teilenummer"
    arrayOfVariantOfBSTR1(2) = "Menge"
    arrayOfVariantOfBSTR1(3) = "Lieferant"
    arrayOfVariantOfBSTR1(4) = "Werkstoff"
   
    Set assemblyConvertor1Variant = assemblyConvertor1
    assemblyConvertor1Variant.SetCurrentFormat arrayOfVariantOfBSTR1
   
    Dim assemblyConvertor2 As AssemblyConvertor
    Set assemblyConvertor2 = product1.GetItem("BillOfMaterial")
   
    Dim arrayOfVariantOfBSTR2(4)
    arrayOfVariantOfBSTR2(0) = "Nummer"
    arrayOfVariantOfBSTR2(1) = "Teilenummer"
    arrayOfVariantOfBSTR2(2) = "Menge"
    arrayOfVariantOfBSTR2(3) = "Lieferant"
    arrayOfVariantOfBSTR2(4) = "Werkstoff"
   
    Set assemblyConvertor2Variant = assemblyConvertor2
    assemblyConvertor2Variant.SetCurrentFormat arrayOfVariantOfBSTR2
   
    Dim Speicherziel As String
   
    Speicherziel = CATIA.FileSelectionBox("Sichern unter", "*.xls", CatFileSelectionModeSave)
     
    If Right(Speicherziel, 3) = "xls" Then
            assemblyConvertor2.[Print] "XLS", Speicherziel, product1
        Else
            assemblyConvertor2.[Print] "XLS", Speicherziel & ".xls", product1
    End If
   
End Sub

------------------
Liebe Grüße
Liebmer Trauschein

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP