did-g45

Bonjour, je sais pas si cela pourras aider mais j'avais une ligne de raccourci modifié pour lancer un "catvbs" qui et construit comme ceci. "C:\Program Files\Dassault Systemes\B19\win_b64\code\bin\CATSTART.exe" -run "CNEXT.exe -macro C:\CAT_Titre.catvbs" -env CATIA.V5R19.B19 -direnv "C:\ProgramData\DassaultSystemes\CATEnv" -nowindow A voir si ca marche ! Bonne journée

Bonjour, J’aurais aimé avoir des conseils aux sujets des CATScript et des paramètres dans les CATDrawing. Mon problème est que je réussi a créé une boite de dialogue (saisie info), je réussi a l’affecte a la variable du cartouche(TitleBlock_Text_PlyName). Je crée mon paramètre (mon_param 1) mais je m’arrive pas à « lié un attribut » entre le paramètre et la variable et cerise sur le gâteau la prise en compte du paramètre pour tous les calques existants si possible. J’ai cherché sur le net ainsi que dans V5Automation sans succès. J’ai réussi à écrire les lignes suivantes en faisant un enregistrement avec catia mais il n’enregistre pas la fonction « lié à un document ».Cela reste du bricolage les lignes de code ne sont certainement pas bien construites mais ça fonctionne. Merci pour votre aide ------------------------------------------------ etude = DrwTexts.GetItem("TitleBlock_Text_PlyName").Text Dim TitleBlock_Text_sdr_fi_1 As Integer etude = InputBox("Numéro affaire étude:", "Numéro affaire étude", etude) DrwTexts.GetItem ("TitleBlock_Text_PlyName").Text = etude Dim parameters1 As Parameters Set parameters1 = drawingDocument1.Parameters Dim strParam1 As StrParam Set strParam1 = parameters1.CreateString("", "") strParam1.Value = etude strParam1.Rename "mon_param 1"

bonjour, En ce moment le forum tourne au ralenti je vais donc en profité pour relancé un sujet sur lequel je suis rester en plan, à savoir comment retirer le "CATDrawing" du nom résultant de la transformation et voir même si il y a possibilité de ne traité que le calque actif (j'entends par actif celui afficher à l'écran) comme je l ai précisé dans un précédent post n étant pas trop calé en programmation vba serais t'il possible d avoir des exemples concret. merci à vous

bonjour, Pour utilisé les scènes et les mettres en plans il faut déjà créé la scène, déplacer les différentes pièces pour la mise en plan ,une fois l'opération réalisé aller dans le CATdrawing procédé comme une mise en page classique sauf qu'au moment de sélectionné la pièce il faut d’abord cliquer sur le nom de la scène (ex:scène1) puis 2 plans ou si il s'agit d'une vue iso sur la géométrie (scène toujours active) voila c'est fait , penser à sauver la position pour les vue iso car si il faut déplacer ou cacher une pièce c est plus facile avec le même angle de vue. J'espère ne pas avoir été trop confus dans mais explications mais cette opération est somme toute pas trop compliqué. ps: pour info les pièces déplacer dans la scène reste bien en place dans le Product cordialement, DID-G45

bonjour et bonne année a tous, si comme je le pense il sagit d 'un point model(V4) il faut d abord le transformer en V5 à l aide d un utilitaire disponible dans outil > utilitaire, il y a un outil de conversion. Je dit cela de memoire je ne me rappel plus du nom exat mais il est assez explicite. ou alors il y a un autre moyen peut etre pas recommandé mais on peut ouvir le fichier MODEL , créé un fichier PART et faire un copier dans le fichier MODEL et le coller dans un PART vierge à ce moment on peu l'enregistré en IGS. cordialement did-g45

Bonjour, J'ai récupérer votre fichier votre fichier je ne trouve pas de problème particulier je vous ai mis une vidéo du résultat "https://www.play-host.net/files/1261117709.zip" je pense que vous ne devais pas activé la rotation sur la bonne pièce . Pour ma part je n ais pas les mêmes options que vous , j active le mouvement juste avec la boussole et "shift' Cordialement DID-D45 [Edité le 17/12/2009 par did-g45]

bonjour, J"ai éssayer votre montage en appliquant une fixité sur le corps6 (chemise) cela marche trés bien hormis qu'avec la detection "stop sur interférence" on voir qu'il manque une lumiere dans la chemise pour assurer le passage de la bielle cordialement

Bonjour, Merci pour vos réponses mais le VB n'étant pas mon truc (juste du bricolage) pouvez vous mettre des exemples (ligne de commande) c' est plus parlant ,et pour les novices plus faciles à modifiés qu'a créés Merci de votre compréhension et votre dévouement did-g45 [Edité le 9/10/2009 par did-g45]

Merci beaucoup Marc54 cela fonctionne j'ai meme fait une boite pour avoir éventuellement un DXF pour ceux qui sont interessés voici le sript (peut etre mal organisé mais il marche .Ne pas oublié de sauvegardé le fichier en CATDrawing avant) Sub CATMain Dim ActiveDwg Dim PdfDwg Dim dxfDwg Dim rep as string Set ActiveDwg = CATIA.ActiveDocument rep=ActiveDwg.Path + "\" ' sauvegarde du drawing ActiveDwg.SaveAs rep & ActiveDwg.Name 'sauvegarde des sheets au format pdf PdfDwg = rep & ActiveDwg.Name & ".pdf" ActiveDwg.ExportData PdfDwg, "pdf" reponse = InputBox("Création fichier DXF : si oui taper 1 puis OK Ou OK pour continuer") If (reponse = "1") Then 'sauvegarde des sheets au format dxf dxfDwg = rep & ActiveDwg.Name & ".dxf" ActiveDwg.ExportData dxfDwg, "dxf" Else End If MsgBox "fin sauvegarde dans " + rep end sub

Bonjour, intéressante l idée de Juratof pour l'enregistrement simultané en DRAWING et eb PDF mais quelqu'un pourrais dire comment le faire dans le répertoire d'origine à la place du répertoire C:\tmp pour mémoire 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

Bonjour, pour votre mise en plan sagit il d'un catproduct ou d'un catpart si il sagit d'un cat product je pense qu'il suffit de l activé avnt de cliqué sur la geometrie ,si il sagit d'un catpart il ne faut pas cliqué sur nom du corps avant de cliqué sur la geometrie le faire direct sur la geometrie , je me sert de la solution inverse pour faire une mise en plan d'un corps dans un catpart je clique sur le nom du corps dans l'arbre et apres sur la geometrie pour avoir seulement le corps desiré

bonjour, Tout d abord merci pour vos conseils Marc54. Ca marche bien "même à la louche" ils m'ont été tres utiles ,merci de prendre le temps de répondre et de partagé votre experience avec des inconnus . Je sais c est le principe d'un forum mais c est trés agéable de trouver une solution quand on sent un peu dans les choux. Merci encore DID-G45 [Edité le 7/10/2008 par did-g45]

merci pour votre reponse marc54 j 'ai essayer de deplacer les lignes modifiant la variable à plusieur endroit sans succés sauriez vous me dire ce qu il ne va pas dans ce que j ai fait cela est toujours sur la base du fichier "Drawing_Titleblock_Sample1.CATScript" ------------------------------------------------------------------------------------------------------------- Dim nbSheet As Integer Dim curSheet As Integer nbSheet = 0 curSheet = 0 Select Case TypeName(ActiveDoc) Case "DrawingDocument" If (not DrwSheet.IsDetail) Then For i = 1 To DrwSheets.Count If (not DrwSheets.Item(i).IsDetail) Then nbSheet = nbSheet + 1 End If Next For i = 1 To DrwSheets.Count If (not DrwSheets.Item(i).IsDetail) Then On Error Resume Next curSheet = curSheet + 1 if len (curSheet) = 1 Then curSheet = "0" + curSheet if len (nbSheet) = 1 Then nbSheet = "0" + nbSheet DrwSheets.Item(i).Views.Item(2).Texts.GetItem("TitleBlock_Text_Sheet_1").Text = CStr(curSheet) & "/" & CStr(nbSheet) End If Next End If

bonjour, J'ai bricoler un cartouche perso sur la base de ceux fourni par dassault le seul probleme c est de recuperer un nombre a 2 chiffres pour la variable sheet je voudrais pouvoir afficher 02/03 par exemple à la place de 2/3 actuellement, quelqu'un aurais t'il la solution a me proposer sur la base du fichier Drawing_Titleblock_Sample1.CATScript Merci.

presque sur ! car pour les usinages des pieces avec WORKNC (FAO) je suis obligé d exportées mes DFN en IGS et comme il n aiment pas se complqué la vie il faut que je leurs donne en position usinage . je me sert donc du repere ORIGINE pour les mettre en place . bien sur il faut que le product soit actif sinon il prend le repere de la part active dans le product et pour l instant avec cette methode pas de mauvaises surprises :D