macros Catia

[audemorel]

Bonjour,

J'ai des allcatparts formés donc chacun de plusieurs pièces. Je souhaiterai fabriquer une macro en CATScript qui soit capable de me renommer toutes les pièces d'un de mes .CATPart en ne gardant que ce qu'il y a après le dernier \.
Par exemple, je voudrais que : "CCI_SC0000408_01_00_001_BRIDE _EXTER_MOTEUR.1\DDR_DT0214871_ 01_00_001_STATOR_MOTOR_FLANGE. 1\Bride" devienne uniquement "Bride".
Je suis complètement novice en macro et je n'arrive pas à me trouver un manuel d'aide où je pourrais rechercher des explications sur toutes les fonctions...

Quelqu'un pourrait-il me venir en aide?

Merci d'avance
-----

[invite7a8ce750]

Bonjour,

J'ai des allcatparts formés donc chacun de plusieurs pièces. Je souhaiterai fabriquer une macro en CATScript qui soit capable de me renommer toutes les pièces d'un de mes .CATPart en ne gardant que ce qu'il y a après le dernier \.
Par exemple, je voudrais que : "CCI_SC0000408_01_00_001_BRIDE _EXTER_MOTEUR.1\DDR_DT0214871_ 01_00_001_STATOR_MOTOR_FLANGE. 1\Bride" devienne uniquement "Bride".
Je suis complètement novice en macro et je n'arrive pas à me trouver un manuel d'aide où je pourrais rechercher des explications sur toutes les fonctions...

Quelqu'un pourrait-il me venir en aide?

Merci d'avance

Pas qu'un peu spécialisé ta question
Ça va être difficile de trouver de l'aide je pense.

[alain37]

Bonjour,
Je pense que tu devrais trouver la réponse, là :

http://www.cadxp.com/

il faut s'inscrire et choisir le forum du log en question
A+

[ABN84]

essaie ceci:
http://www.logiciel-cao.com/forum/

[A voir en vidéo sur Futura]

[audemorel]

J'ai trouvé comment faire, merci à tous...
Si çà peux être utile à qqn, je vous mets mon code :

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

for n=1 to bodies1.Count-1   'Identifie le nbre de corps de pièces

	Set bodyn = bodies1.Item(n+1) 'Selectionne les corps de pièces
            	i=StrReverse(bodyn.Name) 'Inversion du nom
	j=InStr(i, "\") 'Position du 1er \			
	k=Left(i,j-1) 'Garde seulement ce qui est à gauche du \		
	i=StrReverse(k) 'Remet la chaine de caractère dans le bon ordre
             bodyn.Name = Left(i,65) 'Renomme la pièce en s'assurant qu'il y a moins de 65 caractères	

next

End Sub

Maintenant j'aimerai pouvoir générer mon allcatpart avec ma macro... Mais quand je fais "enregistrer une macro" et que je fais Outils\Générer une CATPart à partir d'un produit , il ne marque rien dans la macro... Des idées?

Merci d'utiliser les balises a ta disposition, comme, par exemple celle ci:, qui est la balise "code" . Cela permet une meilleure lisibilité et donc un confort de lecture amélioré.

Merci,

yoda1234.