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!