DXF Export

[DJMC]

Hallo an euch alle

habe wiedermal eine Frage.....
Ich habe eine Coreldatei mit 100 Seiten!
Diese muß ich als DXF Exportieren.
Corel Exportiert aber nur eine Seite.( ich muß jede Manuell Exportieren:-(  )
Wie kann ich alle Seiten auf 1x Exportieren? ( So wie beim EPS Export)

LG
Michael

[mvm]

Hallo Michael,

kannst Du in Deinem Zielprogramm ausschließlich DXF öffnen, oder auch anderes wie beispielsweise PDF importieren? Autocad z.B. kann das und hier hättest Du beim Export aus Corel alle Optionen.

[norre]

Hallo,

schau man bei den Macros, dort der File Converter. Damit könnte es vielleicht gehen.

Zumindest könntest du damit die ganzen Seiten aus deinem Dokument automatische als einzelne CDR-Dateien abspeichern und diese dann wieder in einzelne DXF konvertieren

Gruß
Norre

[koter]

Hallo Michael,

Dies Makro exportiert alle Seiten in einzelne DXF-Dateien:

Code:

Sub ExDXF()
   Dim p As Page
   Dim Pfad As String
   Dim z As Integer
   Pfad = ActiveDocument.FilePath
   z = 0
   For Each p In ActiveDocument.Pages
       z = z + 1
       p.Activate
       ActiveDocument.Export Pfad & Left(ActiveDocument.FileName, _
       Len(ActiveDocument.FileName) - 4) _
       & "_" & z & ".dxf", cdrDXF, cdrCurrentPage
   Next
End Sub

Der Zielpfad ist der des Dokuments.

Gruß

Koter

[DJMC]

Hallo Koter

Genau so brauchte ich das!!!!

Vielen Vielen Dank!!!!!



Gruß Michael