Macro multi enregistrements -suite-

[did-g45]

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

 

[marc54]

je n'ai pas testé ...

 

 

Sub CATMain

Dim ActiveDwg

Dim PdfDwg

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"

 

MsgBox "fin sauvegarde dans " + rep

end sub

 

[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

 

[Yoan712300]

Bonjour désolé de déterrer un sujet aussi vieux mais je voudrais savoir si quelqu'un connaitrait le principe pour changer le nom de sortie du pdf.

Car actuellement avec la macro de marc54(que je remercie au passage ainsi que ceux qui ont participés à ce sujet) le pdf et nommé "nomduplan.CATDrawing.pdf" j'aimerai faire sauter "CATDrawing" qui est contenu dans le nom.

 

Merci d'avance.

 

[Edité le 5/10/2009 par Yoan712300]

[cacao421]

il me semble que le premier parametre de la fonction ExportData est le nom de fichier que tu auras en sortie. Il te suffit donc de supprimer ".CATDrawing" à l'aide des fonctions basiques VBScript puis de faire l'appel à ExportData avec ce nouveau nom

[did-g45]

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]

[did-g45]

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