lepolochon04

J'espère que ces infos pourront vous aider. Pour récupérer l'extension (.catpart, .catproduct....), j'utilise ce code. C'est un peu lourd, mais ça marche: ext = ProductDocument.Name ext = StrReverse(ext) o = InStr(1, ext, ".") ext = Left(ext, o) ext = StrReverse(ext)

Merci beaucoup pour l'astuce. J'avais déjà avancé sur le sujet, avec des boucles du type: For Each PartDocument In CATIA.Documents On Error Resume Next PartDocument.ExportData nomrep & "\" & PartDocument.Product.PartNumber & ".CATPart", "CATPart" Next For Each ProductDocument In CATIA.Documents On Error Resume Next ProductDocument.ExportData nomrep & "\" & ProductDocument.Product.PartNumber & ".CATProduct", "CATProduct" Next Cette boucle permétait de sauter les erreurs d'enregistrements des products en part et inversement, même si, en soit elle n'était pas très belle... Ce que tu m'as dit semble fonctionner, à un détail près: je n'arrive pas à changer le "productdocument.name", qui ne semble pas correspondre au product.partnumber. En effet, effectuant plusieurs changements de partnumber et plusieurs enregistrements à la suite, dans une boucle, les product.name sont similaires aux noms de fichier du départ Cela doit provenir des multiples confusions que je fais entre les productdocument, les product, les products....c'est pas trop clair dans ma tête... Sinon, au cas où, pour récupérer l'extension d'un product ou part: ext = ProductDocument.Name ext = StrReverse(ext) o = InStr(1, ext, ".") ext = Left(ext, o - 1) ext = StrReverse(ext) Merci pour l'aide!

Bonjour, Je suis néophyte dans la programmation catia. Je cherche actuellement à créer une macro catia capable d'enregistrer un product et tous ses composants (part et product) à un endroit précis. Mon but est d'automatiser la création de plusieurs puis l'instanciation de composants issus d'un même modèle mais paramétrés différemment (en l'occurence des postes d'assemblage sur une ligne de production). Je bloque actuellement sur l'enregistrement des catpart et catproduct. Voici où j'en suis: Sub CATMain() Dim productDocument1 As ProductDocument Set productDocument1 = CATIA.ActiveDocument nomrep = "E:\bibliotheque\" & productDocument1.Product.PartNumber MkDir nomrep For Each ProductDocument In CATIA.Documents Dim produit As Product Set produit = ProductDocument.Product On Error Resume Next produit.saveas "E:\bibliotheque\" & produit.PartNumber & ".catproduct" Next End Sub Le problème est que d'une part cette macro ne marche pas et de l'autre qu'elle ne prend pas en compte les catpart. J'ai entendu parler de la fonction exportdata, cela marcherait-il? Merci de votre aide. Paul