Comment selectionner une part specifique avec contenant les caractères AllCATPart

Bonjour,

En catvba (je suis novice sur les macros...) je souhaiterai pouvoir selectionner une part ouverte parmi d'autres dans CATIA contenant les caractères "AllCATPart". J'ai tenté un code avec la fonction Search mais ça ne fonctionne pas je pense que je m'y prend mal ou en tout cas il manque des choses derrière la fonction Search. Ci dessous le code :

Dim MyPart As PartDocument
Set MyPart = CATIA.ActiveDocument
......
Set cSelection3 = MyPart.Selection
cSelection3.Clear
cSelection3.Search "(Name=*ALLCATPart*)"

Si vous avez des idées ça m'interesse j'avoue que je patoge un peu.

Je vous remercie d'avance.

Tonio091

Salut Tonio,

Déjà il y a un loup dans ce que tu écris. Tu cherches tous les CATPart dans un CATPart... ton résultat sera donc toujours à 1...

Sinon là comme ça bêtement je ferais une recherche sur les extensions.
Pour ma part j'utiliserais plus facilement la sélection avec filtre.

Code:

Language="VBSCRIPT"
Sub CATMain()

Set sel=CATIA.ActiveDocument.Selection
sel.Clear
Dim iot0(0)
  iot0(0)="Part"

do while 1

Status=sel.SelectElement2(iot0,"Sélectionnez le corps à traiter.",false)
if (Status = "Cancel") then Exit Sub
Set SelBody = sel.Item(1).Value
msgbox( SelBody.name)
loop


Bonjour Tonio

pour faire fonctionner le search et connaitre la syntaxe en fonction de l'information recherchée: il faut regarder le resultat du search dans la zone "query" dans le panneau edit\search.

Code:


Sub CATMain()

Dim oSelection As Selection

Set oSelection = CATIA.ActiveDocument.Selection

sSearchs = "Name=" + "toto*" + ",all"

oSelection.search (sSearchs )
                    
End Sub


Bonjour ...
L'enregistreur de macro est assez efficace pour toutes les recherches Ctrl F ..

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection
selection1.Clear ' vide la selection .. si il y en a deja une !

selection1.Search "Name=*AllCATPart,all"

nb = selection1.Count

For i = 1 To nb
Set itemselectionné = selection1.Item(i).LeafProduct

nomitemselectionné = itemselectionné.Name

Next

End Sub

Bonjour,

Merci pour vos reponses vos codes marchent et en cherchant un peu en catvba le passage par la fonction "count" marche aussi :

Dim MyPartactive
Dim Monnom As String
Dim j As Integer

For j = 1 To CATIA.Documents.Count
Set MyPartactive = CATIA.Documents.Item(j)
Monnom = MyPartactive.Name
If Right(Monnom, 18) = "AllCATPart.CATPart" Then
MyPartactive.Activate
End If
Next

Merci à vous