'Attribute VB_Name = "export_view_dxf_null_2"
Sub CATMain()
    Dim Path As String
    Path = "C:\Temp\" '<-- Hier Datei-Pfad (Verzeichnis) anpassen! Mit "\" am Ende!!!
    CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(3).X = 0
    CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(3).y = 0
    CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(1).Activate
    'CATIA.ActiveDocument.ExportData CATIA.FileSelectionBox("Ausgabedatei (*.dxf) waehlen", "*.dxf", CatFileSelectionModeSave), "dxf"
    CATIA.ActiveDocument.ExportData Path & Left(CATIA.ActiveWindow.Caption, InStrRev(CATIA.ActiveWindow.Caption,. ".") - 1), "dxf"
End Sub