Catia arbre à l'exportation v5 grâce à une bonne soirée macro VBA

Question

,

je dois exporter l'arbre Spec Catia à utiliser comme BoM.

L'exportation devraient:

• Aller vers Excel et utilisera la fonction WalkDownTree.
• Avoir le numéro de pièce, la nomenclature et un utilisateur ajouté Propriété appelée "Sinex Ref".

• Il devra également s'assurer que l'arbre exporté ignore les parties et les produits appelés "Ref".

• Présentez la quantité de chaque article en utilisant le numéro de pièce .

• Inclure les parties désactivées mais mentionner qu'elles sont désactivées.

Je suis nouveau à Catia et VBA et sont venus avec les éléments suivants (j'ai fait des ajustements à d'autres macros que j'ai trouvé mais on a remarqué qu'ils ignorent les enfants dans l'arbre). Actuellement, la macro génère le fichier Excel et, dans la même cellule, parcourt toutes les parties et tous les enfants de l'arbre des spécifications, qu'ils soient ou non désactivés.

Sub CATMain() 



' ********* is the current document a CATIA Product ************** 



    If CATIA.Documents.Count = 0 Then 


     MsgBox "There are no CATIA documents open. Please open a CATIA document and try again.", ,msgboxtext 


     Exit Sub 


    End If 




    If InStr(CATIA.ActiveDocument.Name, ".CATProduct") < 1 Then 


     MsgBox "The active document is not a Product. Please open a CATIA Product and try again.", ,msgboxtext 


     Exit Sub 


    End If 





' ************* General declarations for the Active CATIA session ***************** 

    Dim oProdDoc As ProductDocument 
    t = 1 
    Set oProdDoc = CATIA.ActiveDocument 
    Dim oRootProd As Product 
    Set oRootProd = oProdDoc.Product 
    Dim par As Parameters 
    Set par = oRootProd.UserRefProperties 
    Dim SinexRef As String 


' *************** begin spec tree scroll ****************** 

    Call WalkDownTree(oRootProd) 
End Sub 

Sub WalkDownTree(oInProduct As Product) 
     Dim oInstances As Products 
    Set oInstances = oInProduct.Products 

    On Error Resume Next 
    Set Excel = GetObject(, "EXCEL.Application") 

    If Err.Number <> 0 Then 
     Set Excel = CreateObject("EXCEL.Application") 
     Excel.Visible = True 
     Excel.Workbooks.Add 
    End If 

    If t <> 1 Then 
     for i=1 to oInProduct.Count 


'**************************** Export title *************************** 


      row=2 


      col=1 
      Excel.Columns.Columns(1).Columnwidth = 5 

      Excel.Columns.Columns(2).Columnwidth = 15 
      Excel.Cells(row,col+1).Value = "CATProduct:" 


      Excel.Cells(row,col+1).Font.Bold = true 

      Excel.Cells(row,col+1).HorizontalAlignment = 3 
      Excel.Cells(row,col+2).Value = CATIA.ActiveDocument.Name 

' **************************** Export column titles *************** 


      row=4 
      Excel.Cells(row,col+1).Value = "Instance Name" 
      Excel.Cells(row,col+1).Font.Bold = true 

      Excel.Columns.Columns(2).Columnwidth = 20 

      Excel.Cells(row,col+1).borders.LineStyle = 1 
      Excel.Cells(row,col+1).HorizontalAlignment = 3 
      Excel.Cells(row+2,col+1).Value = oInProduct.ReferenceProduct.PartNumber 

      Excel.Cells(row,col+2).Value = "Ref" 

      Excel.Cells(row,col+2).Font.Bold = true 

      Excel.Columns.Columns(3).Columnwidth = 15 
      Excel.Cells(row,col+2).borders.LineStyle = 1 

      Excel.Cells(row,col+2).HorizontalAlignment = 3 
      Excel.Cells(row+2,col+2).Value = oInProduct.ReferenceProduct.Nomenclature 


      Excel.Cells(row,col+3).Value = "Quantity" 

      Excel.Cells(row,col+3).Font.Bold = true 

      Excel.Columns.Columns(4).Columnwidth = 15 
      Excel.Cells(row,col+3).borders.LineStyle = 1 
      Excel.Cells(row,col+3).HorizontalAlignment = 3 
      Excel.Cells(row+2,col+3).Value = 1 'insert item quantity corresponding to PartNumber 


      Excel.Cells(row,col+4).Value = "SinexRef" 

      Excel.Cells(row,col+4).Font.Bold = true 

      Excel.Columns.Columns(5).Columnwidth = 15 
      Excel.Cells(row,col+4).borders.LineStyle = 1 

      Excel.Cells(row,col+4).HorizontalAlignment = 3 
      Excel.Cells(row+2,col+4).Value = 1 'insert Sinex Ref corresponding to PartNumber 

      t = t + 1 

     Next 

    End If 


    Dim k As Integer 
    For k = 1 To oInstances.Count 
     Dim oInst As Product 
     Set oInst = oInstances.Item(k) 

     Call WalkDownTree(oInst) 

    Next 

End Sub 

Answer 1

En supposant par

dans les mêmes cycles cellulaires à travers toutes les parties et les enfants dans l'arbre de spécifications

vous dire qu'il est en train d'écrire/remplacer les données de CATIA dans la même cellule, car vous n'incrémentez rien concernant les lignes/colonnes Excel. Personnellement, je créerais des en-têtes pour des choses comme CATProduct, Instance Name, etc., puis mettre des données pures ci-dessous au lieu de répéter ces en-têtes identiques à chaque fois, mais votre format fonctionnera aussi, il pourrait être plus difficile de résumer données dans Excel. Quoi qu'il en soit, pour conserver votre format existant, vous devez incrémenter votre Row à la fin de votre boucle, là où t est incrémenté.

Dans la boucle existante, il semble que les lignes 2 à 6 sont utilisées (5 lignes au total) pour le premier oInProduct. Il y a une ligne = 2 au début de la boucle qui doit être placée juste avant la boucle, cela signifie qu'elle commencera à partir de la deuxième ligne. Il y a aussi une ligne = 4 dans la boucle qui doit être changée, on peut utiliser row = row + 2 pour obtenir le même effet. Puis, à la fin de la boucle, on incrémente à nouveau pour atteindre ce total de 5, donc utiliser ligne = ligne + 3.

row = 2 

for i = 1 to oInProduct.Count 

    '**************************** Export title *************************** 

    col=1 
    Excel.Columns.Columns(1).Columnwidth = 5 

    ... 
    row = row + 2 'previously row = 4 
    ... 

    Excel.Cells(row,col + 4).HorizontalAlignment = 3 
    Excel.Cells(row + 2,col + 4).Value = 1 'insert Sinex Ref corresponding to PartNumber 

    t = t + 1 
    row = row + 3 

Next