renommer un WP sous CATIA en VBscrpit

Bonjour,
J ai fait un macro qui me renomme tous les Products sur un arbre composer de WP et Part.
Le premier niveau se passe très bien mais, même si mes valeurs sont reconnues aucune modification ne s'effectue.
Voici mon scrpit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub catia_models_list()   Dim objRootProductDoc As ProductDocument Dim mySel As Selection Dim myProduct As Product Dim i As Integer   Set objRootProductDoc = CATIA.ActiveDocument Set mySel = CATIA.ActiveDocument.Selection   mySel.Search ("'Assembly Design'.Product,sel") For i = 1 To mySel.Count Set myProduct = mySel.Item(i).Value Set product2 = myProduct.Item   If Right(myProduct.Name, 2) Like ".*" Then lenght = Len(myProduct.Name) - 2 string1 = Left(myProduct.Name, lenght) ' string1 = myProduct.Name   myProduct.Name = string1   End If Next   End Sub

---

Si quelqu'un peu m'aider :mrgreen:

:roll: merci

Salut, bienvenue sur DVP

J'ai un gros doute sur le fait que tu programmes en VBScript.
Le code que tu nous proposes fait référence à la bibliothèque CATIA, puisque tu types tes variables avec les objets de celle-ci.
Sous VBScript, on n'a pas le droit de typer les variables.
A moins que tu nous soumets un exemple de code écrit pour VBA ou VB6 et antérieur ?

Comment savoir si l'on utilise VBA ou VB6 ?

VBA Office (Access, Excel, PowerPoint, Word....)
VB 6 et antérieur

Bonjour Les Forumeur,

Après plusieurs essais et recherche je suis toujours bloqué au même stade. J'ai essayé avec des récursives. J'ai parcouru plein de forum et je trouve personne pour m'aider.

S'il vous plait si quelqu’un peu m aider ...:(

Merci a tous

Cdt,

Olivier

Bonjour,

pas très clair (surtout sans avoir Catia)...


ton descriptif "le premier niveau" ... c'est quoi le premier Niveau ?

Tu rentre dans ta boucle FOR ?, rajoute des messages pour le vérifier ..

ce code

Code:

---

Set myProduct = mySel.Item(i).Value

---

tu est sur que ton .Value est un objet ?

Bonjour bbil,

Alors le premier niveau d'une branche c est :

Exemple branche :

Product1
---Part1
---Part2
---Part3
---Product2
---------Part4
---------Product3
---------------Part5
---------Product4

Part1, Part2, Part3, Product2 sont le premier niveau, Part4, Product3, Product4 sont le second niveau, ... etc

En fait ma macro fait tout comme il faut sauf que je n'ai aucune modification a partir du second niveau.
Voici mon résultat :

Part1.1 --------> Part1
Part2.1 --------> Part2
Part3.1 --------> Part3
Product2.1 ----> Product2
Part4.1 --------> Part4.1 au lieu de Part4
Product3.1 ----> Product3.1 au lieu de Product3
Part5.1 --------> Part5.1 au lieu de Part5
Product4.1 ----> Product4.1 au lieu de Product4

Dans le step by step je vois bien String1 prendre la valeur demandée, mais elle n'est pas mise sur mon Name.:calim2:

J'ai essayé de faire une récursive, c est même essayer de doubler l'action.:(

mais rien de mieux.

Dans My seach j'ái essayé All a la place de sel mais rien de mieux.

Voila un peu plus d info, merci pour votre collaboration.

Très cordialement,

Olivier

bonsoir,

un update ?

Code:

---

1 2 3 4 5

(...) myProduct.Name = string1 myProduct.Update (...)

---

Bonsoir bbil,

J'ai essayé plusieurs manière de sélectionner mes WP dans mon search mais rien y fait. Des lundi matin j'essaierai le update. J'avais pensé, est-il possible que se soit dans mes set qu'il puisse y avoir un manque d'info pour mais boucle deuxième rang ?
Je te tiens au courant de l’évolution de mon script. Si c est le update le manque pourrais me dire dans quelle circonstance je peux identifier la nécessité de faire un update ?
J’espère que c est ça.

Bon WE et merci encore bbil

Cdt,

Olivier

Bonjour bbi,

Après essais pas de changement ... :(

Je me pose la question depuis vendredi si ce n'est pas sur cette étape qu il faut travailler.

Citation:

---

Set myProduct = mySel.Item(i).Value

---

Parce que je lui donne le même lieu alors que dans l'arborescence je change de niveau... :koi:

Merci de votre contribution a tous

Olivier

Bonjour,

Après recherche, il s’avère impossible de modifier le "Instance Name" si il n'est pas en tête.
La solution serait de l'ouvrir dans un fenêtrage. J'ai donc essayé de faire un recorder, mais mon action d'ouverture de fenêtre n'est pas dans le record.
Si quelqu'un peut m'aider sur cette action.
Action que je dois décrire dans ma Macro :
Dans un Assembly Design -->
1 - Renommage du premier niveau de Product
2 - Ouverture du deuxième niveau de Product dans un fenêtrage puis renommage et save all
3 - contrôle si il y a un autre niveau
4 - si oui répétition de l’étape 2 sur le niveau supplémentaire.
5 - si non save all (pas seulement le save).
end sub

Merci de votre aide.
Ne me faites pas la macro entière sinon je n apprendrai pas, mais je fournirais mon avancement après votre aide.

Cdt,

Olivier