Macro supprimer toutes les matières dans une part

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

EnCours Macro supprimer toutes les matières dans une part

Message par skara77 le Sam 22 Juin 2013 - 2:56

Bonjour,

j'aimerais savoir si il existait (ou si quelqu'un pouvait m'aider à faire)

une macro qui supprime toutes les matières dans une CATPART

je vous remercie d'avance
cdlt
S.

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

Message par flo le Sam 18 Jan 2014 - 0:31

Salut,
il faut supprimer dans tous les CATPART ou CATPRODUCT ?
Dans les CATPART, tu enregistre une macro et tu supprime la matière.
Dans un product, il faut que tu compte le nombre de pièce et que tu incrémente une par une pour supprimer la matière.
Bon courage

_________________
i52500K-GTX560TI-8Go
Windows 7 pro x64 - Solidworks 2013 (CATIA V5R20)
avatar
flo
Fédérateur
Fédérateur

Messages : 455
Date d'inscription : 22/01/2011
Age : 27
Localisation : Angers

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

Message par skara77 le Ven 24 Jan 2014 - 3:36

ça serait pour supprimer dans une CATPART, avec pleins de corps de pièce

le problème de l'enregistrement de la macro, c'est qu'il prend en compte le nom des corps de pièces, hors ceux ci ne seront jamais les même entre les catpart

skara77
actif
actif

Messages : 24
Date d'inscription : 20/05/2011
Localisation : 77

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

Message par ntirman le Ven 24 Jan 2014 - 5:50

il faudrait faire un fonction qui balaye tous les catparts.

Ex:

Sub effacerMatieres
Dim PP As Products
Dim I As Integer
Set PP= P.Products
I= 0
'ici la partie qui détecte l'extension CatPart avec un "if" + effacer matières
Do While I< PP.Count
I= I + 1
effacerMatieres (PP.Item(I))
Loop

End Sub

ntirman
timide
timide

Messages : 5
Date d'inscription : 14/01/2014
Localisation : Toulouse

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

Message par flo le Ven 24 Jan 2014 - 23:18

Comme le met ntirman, tu doit pouvoir remplacer le nom des pièces par des entiers, tu peut donc utiliser la sa macro, puis tu met la tienne non plus avec le nom des corps mais la variable I de ntirman

_________________
i52500K-GTX560TI-8Go
Windows 7 pro x64 - Solidworks 2013 (CATIA V5R20)
avatar
flo
Fédérateur
Fédérateur

Messages : 455
Date d'inscription : 22/01/2011
Age : 27
Localisation : Angers

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

Message par Mr.J le Dim 2 Fév 2014 - 9:18

Je ne sais pas comment faire pour supprimer une matière mais pour 'scanner' tous les corps de pièce d'une part il te suffit de faire une boucle comme ceci (l'élément actif doit être une CATPart) :

Code:

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim CurrentBody As Body
Dim k As Integer

'Loop sur tous les corps de pièces
For k = 1 To part1.Bodies.Count

    Set CurrentBody = part1.Bodies.Item(k)
    
    'Insérer ici la partie qui sert à supprimer la matière sur le corps de pièce CurrentBody

Next

End Sub

Mr.J
timide
timide

Messages : 14
Date d'inscription : 11/10/2013
Localisation : Toulouse

Revenir en haut Aller en bas

EnCours Re: Macro supprimer toutes les matières dans une part

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