Code:
Language="VBSCRIPT"
Sub CATMain()Set drawingDocument1 = CATIA.ActiveDocument
DocFullname=drawingDocument1.FullName 'enthält auch den Pfad der Drawing
position=InstrRev(DocFullName,".", -1, 1)
gl2name=left(DocFullName,position)&"gl2"
pdfname=left(DocFullName,position)&"pdf"
tifname=left(DocFullName,position)&"tif"
CATIA.DisplayFileAlerts = False
drawingDocument1.ExportData gl2name, "gl2"
drawingDocument1.ExportData pdfname, "pdf"
drawingDocument1.ExportData tifname, "tif"
msgbox "Die Zeichnung wurde in den Formaten HPGL, PDF und TIF erfolgreich gespeichert"
End Sub