cacao421

il me semble que le premier parametre de la fonction ExportData est le nom de fichier que tu auras en sortie. Il te suffit donc de supprimer ".CATDrawing" à l'aide des fonctions basiques VBScript puis de faire l'appel à ExportData avec ce nouveau nom

Bonjour, Je recherche un poste de Consultant PLM sur Saint Etienne (42) . Si vous êtes intéressés ou connaissez des gens que ça peut intéresser, envoyez moi un petit mail. Merci

Bonjour à tous, Je suis à la recherche de tutoriaux pour apprendre à utiliser le langage de programmation CAA. Merci de vos infos. à plus

moi aussi je veux bien plus d'infos

je ne suis pas sur d'avoir très bien compris ta question... Tu ne sais pas comment créer une macro ? Si c'est cela, il suffit d'utiliser n'importe quel éditeur de texte et d'enregistrer ton fichier avec l'extension ".CATScript". Ton fichier doit contenir impérativement une procédure CATMain, qui correspond au point d'entrée de ta macro, équivalent du main en c... Tu peux ensuite créer autant de fonctions et procédures que tu veux,

Sub CATMain Dim ActiveDwg Dim PdfDwg Set ActiveDwg = CATIA.ActiveDocument ' sauvegarde du drawing ActiveDwg.SaveAs "C:\tmp\" & ActiveDwg.Name 'sauvegarde des sheets au format pdf PdfDwg = "C:\tmp\" & ActiveDwg.Name & ".pdf" ActiveDwg.ExportData PdfDwg, "pdf" MsgBox "fin sauvegarde" end sub à personnaliser mais l'idée est là ....

Le but n'est pas de changer le "productdocument.name" mais de construire le nom du document sur le disque à partir de productdocument.name (pour l'extension) et de produit.PartNumber Exemple ici avec l'extension "en dur", juste à remplacer ".CATProduct" par ext For Each ProductDocument In CATIA.Documents Dim produit As Product Dim NomDeFichier Set produit = ProductDocument.Product NomDeFichier = produit.PartNumber & ".CATProduct" ProductDocument.saveas "C:\tmp\test\" & NomDeFichier Vous allez obtenir le fichier "C:\tmp\test\PartNumber.CATProduct" A noter que "For Each PartDocument In CATIA.Documents" et "For Each ProductDocument In CATIA.Documents" sont équivalents, ce qui signifie qu'un CATPart est un ProductDocument et un CATProduct est un PartDocument !!! (je sais, c'est pas logique mais c'est comme ça...) Vous parcourez donc votre assemblage deux fois pour rien....

La méthode SaveAs prend en paramètre un objet de type Document et non un objet de type Product. Essayez avec un truc du style : ProductDocument.saveas "C:\tmp\test\" & ProductDocument.Name L'extension étant incluse dans le ProductDocument.Name, cette métode marchera à la fois pour les CATPart et CATProduct. Vous pouvez aussi récupérer l'extension du fichier sur le ProductDocument.Name à l'aide des fonctions de manipulations de chaines de VBScript et construire le nom de fichier avec le PartNumber + extension. Vous devrez alors faire ProductDocument.saveas "C:\tmp\test\" & NomDeFichier La méthode ExportData est plutôt à utiliser dans le cas où vous voudiez enregister un CATPart en tant que wrl par exemple. Bonne continuation,