chucky

J'ai trouvé plus simple: J'ai créé des paramètres dans le draw qui prennent les valeurs désirées lors de la réalisation du cartouche donc part ou product ouvert! Finalement, plus besoin de tout ouvrir pour faire mes passages d'info entre les différents fichiers. ;) Chucky

Salut! T'as fais comment pour la matière? Chucky

Salut à tous! J'ai essayé et ca veut pas marché! J'ai un peu de mal à comprendre. A part ça, j'ai un p'tit soucis. C'est trés bete! :exclam: Je voudrais que les paramètres de mon drafting qui gère les éléments du cartouche prennent leurs valeurs dans un fichier excel. Quelqu'un sait comment on fait?

Dsl pour le retard! Comme promis 'Gestion du format de la feuille 'format du calque courant (B2, B3, B4, B5 et A0 à A4) SheetFormat = DrwSheet.PaperSize If SheetFormat < 2 Then MsgBox "Format de papier inconnue" & Chr(10) & "Vous devez entrer les valeurs des paramètres manuellement!", 48, "Attention" End If If SheetFormat > 1 And SheetFormat < 7 Then Format = "A" & CStr(SheetFormat - 2) End If If SheetFormat = 13 Then 'User defined format If Height = 841 And Width = 1189 * 2 Then Format = "B2" ElseIf Height = 841 And Width = 1189 * 3 Then Format = "B3" ElseIf Height = 841 And Width = 1189 * 4 Then Format = "B4" ElseIf Height = 841 And Width = 1189 * 5 Then Format = "B5" Else MsgBox "Taille de papier sélectionnée inconnue" & Chr(10) & "Vous devez entrer la valeur du paramètre manuellement.", 48, "Attention!" End If End If If Format = "A0" Or Format = "B2" Or Format = "B3" Or Format = "B4" Or Format = "B5" Then Format_coeff = 1.54 Else Format_coeff = 1 End If [Edité le 19/10/2006 par chucky]

Tu pourrais nous mettre une image de ta pale? J'ai bien une p'tite idée, mais ca sera plus facile si je voyais de quoi on parle. Chucky

j'ai un bout de code qui me sert à gérer mes formats et la taille des caractaires si tu veux! Chucky

Salut! Voici comment j'ai fait pour le test part - product: Dim Doc_3D 'As Document '3D associé If CATIA.ActiveDocument.Sheets.Item(1).Views.Count > 2 Then Set Doc_3D = CATIA.ActiveDocument.Sheets.Item(1).Views.Item(3).GenerativeBehavior.Document.Parent '1ère projection ElseIf CATIA.Documents.Count = 2 Then For i = 1 To 2 If InStr(CATIA.Documents.Item(i).Name, ".CATPart") <> 0 Then Set Doc_3D = CATIA.Documents.Item(i) End If Next Else MsgBox "No associated 3D model detected!" & Chr(10) & "Create a view of the associated 3D model and then create the title block", 64, "No 3D" Exit Sub End If 'Test If InStr(Doc_3D.Name, ".CATPart") <> 0 Then MsgBox " C'est un part ! " Else MsgBox " C'est pas un part ! (dans mon cas c'est donc un product!) " End If

Elles le sont peut etre! :D C'est seulement que c'est pas facile de coder pour un dessinateur qui a fait des étude de méca. <acronym class=dict title=

Voila je pense en avoir fini avec mon cartouche, mais il me reste seulement une inconue: comment on fait pour récupérer les propriété du part ou du product lié à mon drawing? Une fois ce problème résolue, je pourrais en finir une bonne fois pour toute avec mon cartouche automatisé! ;) A part ca, est il possible d'automatiser le nom de mon drawing? C'est à dire: mon part se nomme 32xxxxx_xxx.part (idem pour product) et je veux nommer mon drawing 32xxxxx_xxx.drawing. Possible avec les options ou je dois faire une de création draft (création du fichier, de la feuille insertion des vues, et par la meme occasion cartouche et pourquoi pas nomenclature quand je l'aurais terminé.) ? Edit: Pour le moment, je crée mon draw, puis je le renomme, je l'enregistre et finalement je lance mon application cartouche. [Edité le 29/9/2006 par chucky]

salut! Je m'y atèle à partir de demain avec un pro donc je filerais les infos que j'aurais obtenues!

Il ne s'agit pas de laisser faire, mais plutot une demande d'aide, il ne me semble pas avoir demandé une solution clef en main. Je suis stagiaire mécanien à l'UTBM, j'ai fais un peu de VB et j'ai accés à la doc CATIA, mais il faut dire que celle ci n'est pas toujours explicite... :o De plus, j'ai beau chercher, je ne trouve pas d'ouvrage sur ce sujet, donc c'est un peu chaud pour moi.

Ok j'ai rebidouillé le code est vraissemblablement il n'affiche rien, donc deux solutions: 1) j'ai peut etre un problème d'unité. 2) je me suis foiré dans ma requette. Mais alors quelle est la variable du poids lorsque l'on est en drawing? Chucky, je l'aurais un jour, je l'aurais!

Alors voila où j'en suis: la génération du nom de la pièce et du numéro du plan sont générés automatiquement, de plus, il fais la différence entre un part et un product pour rajouter le préfixe SENS (pour sous ensemble). C'est classe ;) En ce qui concerne le poids, il ne m'inscrit rien, est ce que: je peux faire ça: Sub CATMain() Dim ProductMass As String Dim DrwDocument 'As DrawingDocument Set DrwDocument = CATIA.ActiveDocument ProductMass = CATIA.ActiveDocument.Analyze.Mass '"MASS_L1" Set TextAuto(19) = DrwTexts.Add( Productmass" kg", OH - Col(2) - (Col(1) - Col(2)) / 2, OV + Format_coeff * 38.5 * mm) TextAuto(19).Name = "TB_INCAT_TextAuto19" TextAuto(19).AnchorPosition = 5 If Format_coeff = 1 Then TextAuto(19).SetFontSize 0, 0, 3.5 Else TextAuto(19).SetFontSize 0, 0, 3.5 End If TextAuto(19).SetFontName 0, 0, "Monospac821 BT" End sub [Edité le 28/9/2006 par chucky]

Bonjour, Je passe pas mal de temps à fouiller avec "ouvrir" pour retrouver ma bibliothèque d'éléments paramétrés. Est ce qu'il est possible avec une macro de donner une direction à notre ouverture? ma bibliothèque est situé dans : Z:\Outillages-cao\bibliothèque. Je sais que je pourrait créer des catalogues mais je m'y atèlerais le mois prochain. :) Mais en attendant si je pouvais avoir un substitut, ca serait pas mal.

Merci c'est nickel!

J'avais trouvé comment ecrire le nom du part, mais ce que je cherche c'est si comme les chaine de caractere de VB je peux lui dire d'écrire du caractere 1 à 8 et 10 à 15. C'est chaud la prog sous catia quand meme. Merci heero! je te remercie de participer ca motive.

Alors j'ai essayé pour le premier point. Ca fonctionne, mais pas dans l'atelier deux 2d! J'ai fais une macro qui fonction en 3D, je fais copié collé dans celle du cartouche, et rien ne s'affiche. Je pensais avoir fait une erreur mais en relancant la première macro qui fonctionnait en 3D, j'ai le droit à un beau message d'erreur. Depuis l'atelier de dessin, il n'y aurait pas moyen d'avoir accés au propriété du modèle 3D?

Merci pour le premier point, je vais le tester de suite. ;) En ce qui concerne le point 2), la question est simple: est ce que je peux traiter le nom du part comme une chaine de caractères pour récupérer une parti du titre pour réaliser un texte automatique dans mon cartouche? Pour le petit 3): Est ce qu'il est possible de récupérer le nom du dossier contenant les parts pour faire comme précédent, un texte automatique.

Bonjour à tous, Suis nouveaux sur le fofo. J'ai un peu d'expérience en VB et sous catia V5. Je travaille actuellement sur l'élaboration automatique d'un cartouche et d'une nomenclature. Je suis arrivé à faire la plus part des chose mais il reste encore quelques points sur lesquels je me casse les dents, si vous pouviez m'aider: 1) Je n'arrive pas à récupérer le poids d'un part pour l'insérer dans le cartouche. J'ai bien inséré le matériaux et j'ai accés à la densité, mais pas au volume, donc même mathématiquement je n'arrive pas à récupérer la valeur. 2) Je suis arrivé à faire le lien avec le nom du part ou du product, mais est il possible de le transformer en STRING et ne sélectionner que quelques caractaires? Un p'tit exemple s'impose: Le nom du product est : 32WA249_100_VE.CATProduct le n° du plan est : 32WA249 100 Le nom du produit est : S/ENS 100 VE (S/ENS seulement pour les products, mais je pense faire correspondre cette entité avec la définition du produit, une fois que j'aurais trouvé comment faire) 3) Et dernier point, est il possible de lui demander le nom du dossier contenant le projet (genre le nom du produit qui lui est associé par exemple)? Je vous remercie d'avance, Chucky