VBA CATIA - Renommer les instances d'un CATProduct

Bonjour,
je suis en train d'écrire une macro qui renomme toutes les instances dans un CATProduct.

J 'arrive très bien à renommer les instances du niveau le plus haut du produit (c'est à dire les pièces, composants ou produits directement sous la tête d'arboressance) mais pas pour les niveaux inférieurs (exemple: une pièce d'un composant du produit de tête).

Est-ce que quelqu'un a une idée, une piste?


Exemple de cas où je n'arrive pas à renommer:
(Afin d'être le plus clair possible, je vais décrire le CATProduct travaillé)
- Démarrer CATIA V5
- Fichier => Nouveau...
- Choisir "Product" puis "OK"
(Le CATProduct "Produit1" a été créé)
- Sélectionner "Produit1" dans le graph
- Insertion => Nouveau composant
(Le composant "Produit2" a été créé dans "Produit1")
- Sélectionner "Produit2" dans le graph
- Insertion => Nouvelle pièce
(La pièce "Pièce1" a été créé dans le composant "Produit2")

Maintenant la question est :
Comment renommer l'instance de la pièce "Pièce1" par VBA?
(Pour info: l'instance de pièce "Pièce1" est actuellement "Pièce1.1")


J'ai essayé de répondre avec ce code mais il ne fonctionne pas:

Code:


Sub CATMain()
    CATIA.ActiveDocument.Product.Products.Item(1).Products.Item(1).Name = "Instance_de_piece1_renommee"
End Sub


L'instance est toujours égal à "Pièce1.1" est non à "Instance_de_piece1_renommee"

Salut décompose peut etre ton opération, tu ne peux peut être pas assigner un nom de la manière dont tu le fais

test un truc du genre

Code:

set element_a_modifier = CATIA.ActiveDocument.Product.Products.Item(1).Products.getItem(1)
element_a_modifier.name = "Instance_de_piece1_renommee"

as tu trouver depuis ?

j'ai aussi attaquer les macro au taf pour me simplifier la vie (et peut etre les 200 autres dessinateurs dans le monde. ça va bien mais c'est un peu galère ...

Idem, j'avais un collègue qui devait convertir des pièces et assemblages en stp. Genre 100 d'un coup.
Je lui ai fais une petite macro qui suffi. Mais il y a toujours moyen de faire mieux, mais niveau connaissance je galère aussi.

Bon courage à tous ^^

Bonjour,

je débarque dans ce forum, donc j'arrive un peu tard pour répondre à ce sujet mais ce qu'il faut faire pour ton probleme c'est balayer toute l'arborescence avec un processus récursif (qui s'appelle lui-meme).

exemple :
[/code]
Sub catia_models_list()

Set RootProd = CATIA.ActiveDocument.Product

Call ScanRecursif(RootProd)

End Sub

Sub ScanRecursif(myObject)

For Each Object In myObject.Products
'on affecte un nouveau nom à l'instance et à ses autres attributs si besoin
Object.name = titi
'si l'instance a des enfants on continue de plonger dans la descendance jusqu'à toucher le fond
Call ScanRecursif(Object)
Next Object
End Sub
[code]

@+

Même si c'est tardif toujours intéressant à savoir

Ce n'est jamais évident de trouver des macros ou des morceaux de macro sortant des sentiers battus, alors ta contribution est la bienvenue

merci