Discussion :

[oli13011]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci

[ProgElecT]

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

[oli13011]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  Set myProduct = mySel.Item(i).Value

tu est sur que ton .Value est un objet ?

[oli13011]

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.

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

[SfJ5Rpw8]

bonsoir,

un update ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
(...)
myProduct.Name = string1
myProduct.Update
(...)

[oli13011]

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