vinz369

Bonjour, Comme je cherchais à faire la mêm chose dans l'une de mes macros, je me suis permis d'essayer le morceau de code indiqué ci-dessus. Le problème c'est que mon CATIA (V5 R14 et R16) plante sur la ligne : WIN= Environ("SystemRoot") Il ne reconnait pas Environ. Auriez-vous une solution? Merci d'avance. A bientot

Je viens de trouver la solution. Je la donne donc au cas où quelqu'un d'autre en aurait besoin. En fait il faut utiliser la commande CATIA.fileselectionbox Maintenant, désolé de vous embéter encore mais j'aurais une autre question. Je vous mets la partie du code en question: Sub CATMain() Dim documents1 As Documents Set documents1 = CATIA.Documents Dim productDocument1 As ProductDocument Set productDocument1 = documents1.Add("Product") Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products OuvertureBlocINF.Show Dim arrayOfVariantOfBSTR1(0) arrayOfVariantOfBSTR1(0) = cheminINF Set products1Variant = products1 products1Variant.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All" Dim partDocument1 As PartDocument Set partDocument1 = documents1.Item [surligneur] ("INF.CATPart")[/surligneur] Dim product2 As Product Set product2 = partDocument1.GetItem(1) product2.PartNumber = "INF" OuvertureBlocSUP.Show Dim arrayOfVariantOfBSTR2(0) arrayOfVariantOfBSTR2(0) = cheminSUP Set products1Variant = products1 products1Variant.AddComponentsFromFiles arrayOfVariantOfBSTR2, "All" Dim partDocument2 As PartDocument Set partDocument2 = documents1.Item [surligneur] ("SUP.CATPart")[/surligneur] Dim product3 As Product Set product3 = partDocument2.GetItem(2) product3.PartNumber = "SUP" end sub Mon problème est que je ne peut intégrer à ce product que des pièces qui auraient exactement le nom INF.CATPart et SUP.CATPart. Hors je souhaiterais pouvoir intégrere n'importe quelle" pièce. Que dois-je faire? Je remercie ceux qui ont lu jusqu'à la fin, en espérant que vous pourrez m'aider. A bientot [Edité le 27/7/2006 par vinz369]

Bonjour, J'ai une autre question. Je cherche à faire une boite de dialogue pour ouvrir un fichier toujours dans ma macro sous catia. Il me semble qu'en visual basic il existe une fonction Openfiledialog qui ouvre une boite de dialogue pour faire ça. Est-ce que vous savez comment je pourrais réaliser la même chose au sein de ma macro en VBA? Merci d'avance A bientot

Re bonjour, C'est bon ça marche. Je te remercie 8pool la fonction addnewsplit m'a bien aidé. J'ai un autre probleme maintenant. Je souhaite faire un copier d'un corp d'un doc1 pour faire un colage spécial ds un doc2. En fait je procède comme suit: - je suis dans doc2, je lance l'enregistrement. - j'ouvre doc1, je fais mon copier du corps qui m'interesse. - je reviens dans doc1 en faisant fenetre/doc1. - et enfin je fais mon colage spécial en tant que résultat avec lien. Le probleme est qu'en fait il ne me code pas la derbière partie. En fait le code réalise la copie du corps puis le changement de fenetre mais ne rend pas la nouvelle fenetre(doc2) réellement active et donc qd il veut faire le collage spécial il le fait dans le mauvais document, soit doc1. Je voudrais savoir s'il y a un code pour forcer la fenetre active en tant que document actif? Merci d'avance

Bonjour, Oui en fait j'utilise le mode surfacique pour créer une surface à partir de trois spline, je réalise un remplissage (toujours en surfacique) et après je repasse en volumique pour faire une coupe. Dans tous les cas je vais essayer ce que tu m'as conseillé et je te tiens au courant. Merci A bientot

Bonjour à tous, Je fais un stage sous ce logiciel en ce moment et j'ai un probleme pour créer une macro. J'utilise l'outil d'enregistrement disponible sous catia. En fait je lance l'enregistrement, je crée une coupe, et au lieu de me le traduire en coupe dans le format vba il me le traduit en tant que couture. Est- ce que vous savez d'où ça peut venir? Sinon est-ce que vous connaissez la commande coupe en vba? (sachant que la commande couture est AddNewSewSurface(reference, catpositiveside) Merci d'avance A bientot