Attribute VB_Name = "export_view_dxf_null"
Sub CATMain()
    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"
End Sub