CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment : -17%
Casque de réalité virtuelle Meta Quest 2 ...
Voir le deal
249.99 €

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

3 participants

Aller en bas

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

Message par Tonio091 Ven 3 Avr 2015 - 14: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

Tonio091
Tonio091
actif
actif

Messages : 30
Date d'inscription : 25/02/2011
Age : 41

Revenir en haut Aller en bas

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

Message par SamsGuamejy Mar 7 Avr 2015 - 12: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
3DExperience R2018x
Responsable R&D
http://www.beam3.bzh

Xeon E3-1505M 2.80GHz _ Quadro M3000M _ 32Go Ram _ Win10 _ SSD 240Go + DD 500Go
SamsGuamejy
SamsGuamejy
Fédérateur
Fédérateur

Messages : 314
Date d'inscription : 13/09/2010
Age : 39
Localisation : Vendée (85) FRANCE

http://www.beam3.fr

Revenir en haut Aller en bas

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

Message par Invité Sam 11 Avr 2015 - 12: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.

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

Code:

Sub CATMain()

Dim oSelection As Selection

Set oSelection = CATIA.ActiveDocument.Selection

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

oSelection.search (sSearchs )
                    
End Sub

Invité
Invité


Revenir en haut Aller en bas

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

Message par des_urgences Mar 14 Avr 2015 - 10: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 : 10
Date d'inscription : 12/06/2013
Localisation : Le plus loin possible

Revenir en haut Aller en bas

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

Message par Tonio091 Mar 21 Avr 2015 - 10: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
Tonio091
Tonio091
actif
actif

Messages : 30
Date d'inscription : 25/02/2011
Age : 41

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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