---

Hallo Zusammen!

Mich plagt folgendes Problem: Ich möchte eine sehr große Anzahl an Catia-V5-Zeichnungen in TIFF-Datein umwandeln. Wenn ich dieses über den save-as-Befehl mache, wird immer nur das aktuell geöffnete Sheet in ein TIFF umgewandelt. Alle Zeichnungen bestehen aber aus mehreren Sheets.
Gibt es eine Möglichkeit, die komplette Zeichnung mit allen sheets in einem Vorgang umzuwandeln?

Für Tips wäre ich sehr dankbar :-) !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

das kann man relativ einfach über ein kleines Skript machen. Vielleicht findest Du sogar ein Beispiel im forum. Such mal unter Programmierung.

------------------
Gruß Michael B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Böblinger,

schaue doch mal unter:
http://catia.cad.de/index.php/downloads/scripts/123-scripts-fuer-batch-konvertierungen

Viele Grüsse
Rough

------------------
Zu Risiken und Nebenwirkungen.. fragen Sie Ihren Admin oder schalten Sie den Rechner aus.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuch mal den PDF Creator
http://www.chip.de/downloads/PDFCreator_13009777.html 

Der funktioniert wie nen Drucker und kann auch in eine TIFF "drucken".
Und über die Druckfunktion sollte es ja die Möglichkeit geben, mehrere Sheets zu drucken!?

------------------
Gruß DEEPSPEED
------------------------------------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Böblinger,

ich weiß nicht ob Dir die Skripte von rough-tec helfen.

Meiner Meinung nach würde es reichen:

Sub CATMain()
Dim i As Integer
Dim active_sheet As DrawingSheet
Dim sNeutralFileName As String
Dim oSheets As DrawingSheets
Dim current_sheet As DrawingSheet
Dim sFilename As String
Dim iPos As Integer
Set oSheets = CATIA.ActiveDocument.Sheets
Set current_sheet = oSheets.ActiveSheet
sFilename = CATIA.ActiveDocument.Name
iPos = InStr(sFilename, ".CATDrawing")
sFilename = Left(sFilename, iPos - 1)
For i = 1 To CATIA.ActiveDocument.Sheets.Count
Set active_sheet = CATIA.ActiveDocument.Sheets.Item(i)
active_sheet.Activate
If (active_sheet.IsDetail = False) Then
sNeutralFileName = "C:\Temp\" & sFilename & "_Export_TIFF_Sheet_" & i & ".tif"
CATIA.ActiveDocument.ExportData sNeutralFileName, "tif"
End If
Next
current_sheet.Activate
End Sub

Das als kannst Du ggf. noch ändern. Das würde vorraussetzen, dass eine Zeichnung in CATIA geöffnet ist. Alle Blätte, die keine Detail-Sheets sind werden als TIFF exportiert und nach C:\TEMP exportiert und mit einem Suffix versehen. Code einfach als .CATScript speichern und ausprobieren. 

------------------
Gruß Michael B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich hab da jetzt mal eine Frage:

Warum nicht einfach einen Tiff-Drucker in CATIA einrichten (File > Printer Setup > Add Printer > Raster) und dann beim Drucken auf der Registerkarte Multidocuments die Option All Sheets aktivieren.

Das ganze kann man dann auch in einen Datei drucken. Bei More ist auch noch dier Möglichkeit, alle Seiten in eine Datei zu drucken.

Alles ohne zusätzliche Software...

Viele Grüße,

CEROG

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

---

Euch allen herzlichen Dank für die schnellen Antworten!
Ich habe das Script ausprobiert, funktioniert tadellos, sogar Detail-Sheets werden automatisch ausgeblendet :-)

Vielen Dank!!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Cerog!

Zu Deiner Frage:
Nachteil von "Tiff-Drucker in CATIA":
Wenn man pro Sheet eine Datei will, muss man denen ja Dateinamen geben.
Bei "Multisheet"-Drucken aus Catia gibt es zwar einen Sheet-Zähler, um die Dateinamen eindeutig zu machen, aber diese Nummer hat i.A. nichts mit der wirklichen bzw. logischen Reihenfolge der Sheets zu tun.
Bei Lösung per Makro kann man die Sheet-Namen als Teil des Datei-Namens verwenden!
Dies ist meistens zielführend.
(Beim "Multisheet"-Drucken habe ich es nicht geschafft, auf diese Information zurückgreifen zu können.)

Bei der Variante "alle Seiten in eine Datei zu drucken" zählt mein Argument natürlich nicht - außer wenn die Reihenfolge der Blätter dann falsch ist, da man diese beim "Multisheet-Drucken" ja nicht gezielt beeinflussen kann!

salu'
tobul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

habe da mal eine Frage, kenne mich mit dem Programieren noch nicht wirklich aus und wollte dieses Script so umschreiben, dass es eine Tiff und DXF erstellt! Das hat soweit auch funktioniert, nur wenn ich zwei Sheets (Blatt.1 und Blatt.2) in einer Drawing habe macht er es doppelt! Wie kann ich das verhindern...?

Mfg Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andy,

das liegt daran, dass beim DXF-Export automatisch für jedes Sheet eine Datei erzeugt wird.
Wenn Du das Skript von oben verwendest, dann läuft das ja über alle Sheets und exportiert jedes Mal alle Sheets.

Zur Lösung dieses Problems gibt es 2 Möglichkeiten:
1. Skript abändern (For-Next-Schleife entfernen)
2. Tools/Options/Compability/DXG/Exported Sheets von "All auf "only current" umstellen. (Das beeinflußt jedoch das Speicherverhalten)

------------------
Gruß Michael B.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super danke hat funktioniert!

Mfg Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ansonsten schau noch mal hier

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP