Macro supprimer toutes les matières dans une part

Bonjour,

j'aimerais savoir si il existait (ou si quelqu'un pouvait m'aider à faire)

une macro qui supprime toutes les matières dans une CATPART

je vous remercie d'avance
cdlt
S.

Salut,
il faut supprimer dans tous les CATPART ou CATPRODUCT ?
Dans les CATPART, tu enregistre une macro et tu supprime la matière.
Dans un product, il faut que tu compte le nombre de pièce et que tu incrémente une par une pour supprimer la matière.
Bon courage

ça serait pour supprimer dans une CATPART, avec pleins de corps de pièce

le problème de l'enregistrement de la macro, c'est qu'il prend en compte le nom des corps de pièces, hors ceux ci ne seront jamais les même entre les catpart

il faudrait faire un fonction qui balaye tous les catparts.

Ex:

Sub effacerMatieres
Dim PP As Products
Dim I As Integer
Set PP= P.Products
I= 0
'ici la partie qui détecte l'extension CatPart avec un "if" + effacer matières
Do While I< PP.Count
I= I + 1
effacerMatieres (PP.Item(I))
Loop

End Sub

Comme le met ntirman, tu doit pouvoir remplacer le nom des pièces par des entiers, tu peut donc utiliser la sa macro, puis tu met la tienne non plus avec le nom des corps mais la variable I de ntirman

Je ne sais pas comment faire pour supprimer une matière mais pour 'scanner' tous les corps de pièce d'une part il te suffit de faire une boucle comme ceci (l'élément actif doit être une CATPart) :

Code:


Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim CurrentBody As Body
Dim k As Integer

'Loop sur tous les corps de pièces
For k = 1 To part1.Bodies.Count

    Set CurrentBody = part1.Bodies.Item(k)
    
    'Insérer ici la partie qui sert à supprimer la matière sur le corps de pièce CurrentBody

Next

End Sub