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

Voir le sujet précédent Voir le sujet suivant Aller en bas

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

Message par Tonio091 le Sam 4 Avr 2015 - 0:51

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

avatar
Tonio091
actif
actif

Messages : 26
Date d'inscription : 26/02/2011
Age : 35

Revenir en haut Aller en bas

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

Message par SamsGuamejy le Mar 7 Avr 2015 - 22:40

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

_________________
SamsGuamejy
CATIA V5 R20 Fr
Technicien BE R&D
http://www.arbodomia.fr

I7 Q740 2x1.73GHz _ 8Go Ram _ Win8.1 _ SSD 40Go
avatar
SamsGuamejy
Fédérateur
Fédérateur

Messages : 312
Date d'inscription : 14/09/2010
Age : 33
Localisation : Vendée (85) FRANCE

http://www.arbodomia.fr

Revenir en haut Aller en bas

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

Message par PhilippeC le Sam 11 Avr 2015 - 22:43

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

PhilippeC
timide
timide

Messages : 13
Date d'inscription : 05/04/2015
Age : 59
Localisation : toulouse

Revenir en haut Aller en bas

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

Message par des_urgences le Mar 14 Avr 2015 - 20:05

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

des_urgences
timide
timide

Messages : 8
Date d'inscription : 12/06/2013
Localisation : Le plus loin possible

Revenir en haut Aller en bas

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

Message par Tonio091 le Mar 21 Avr 2015 - 20:26

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
avatar
Tonio091
actif
actif

Messages : 26
Date d'inscription : 26/02/2011
Age : 35

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum