---

Tag zusammen,

besteht die Möglichkeit, dass beim Abspeichern eines Parts
zusätzlich automatisch ein pdf-file erstellt wird?
Bin für jeden Tip dankbar!

------------------
Gruss
Taifun

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

---

Zitat:

---

Original erstellt von Taifun:
...
Bin für jeden Tip dankbar!
...

---

Hallo!

Ja, unter Zuhilfenahme eines PDM-Systems 

bis dahin...

stahly

P.S.
Etwas anderes wüsste ich nicht. 

------------------

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

---

Danke stahly,

aber das wollten wir vermeiden. 
Es sollte schon eine Möglichkeit geben dieses direkt
aus Catia zu realisieren, geht ja auch mit anderen CAD-Progs. 

------------------
Gruss
Taifun

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

---

Hallo,
so was lässt sich bestimmt mit einem Makro machen. Stell die Frage doch mal im Programmier-Forum.

------------------
Viele Grüße
Jochen Kästle

www.denc.de

TUFKAD

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

---

 

Zitat:

---

geht ja auch mit anderen CAD-Progs.     

---

überlesen... Part - ist das ernst gemeint?

[Diese Nachricht wurde von Erwin am 21. Feb. 2005 editiert.]

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

---

Hallo Erwin,

ne, eher aus einer CATDrawing,
da diese hinterher zur Visualisierung
benötigt wird.

------------------
Gruss
Taifun

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

---

Zitat:

---

ne, eher aus einer CATDrawing,

---

Mir ist im Moment keine Möglichkeit bekannt, CATIA-Events wie z.B. in AutoCAD abzufangen - aber Du wolltest ja jeden Tip.
Eine Möglichkeit wäre, das Dokumentspeichern mit im Makro zu integrieren, um doppelt klicken und "Vergesslichkeiten" zu vermeiden, etwa mit dem Ansatz:

Sub Drawing2PDF()
    Dim ThisDrawing As Document
    Dim strPDFFileName As String
   
    Set ThisDrawing = CATIA.ActiveDocument
     
    strPDFFileName = Replace(ThisDrawing.FullName, "CATDrawing", "pdf")
   
    ' PDF löschen, sonst kommt ein "Überschreiben-Fenster"
    On Error Resume Next
    Kill strPDFFileName
    On Error GoTo 0
   
    ' CATDocument speichern
    ThisDrawing.Save
   
    ' PDF speichern
    ThisDrawing.ExportData strPDFFileName, "pdf"
End Sub

Natürlich fehlt da min. eine Prüfung, ob auch etwa wirklich ein CATDrawing aktiv ist und die Dateien anschließend auch vorhanden sind. Mit dem Acrobat geöffnete PDFs sind in der Regel fürs Überschreiben blockiert, so daß man vorher entsprechende Windows-Tasks beenden könnte. Und letztlich: mit CATIA erzeugte PDFs sind oft mehr als 3 mal so groß im Vergleich zu mit Ghostscript behandelten Dateien. Damit ließe sich dann prima eine entsprechende "Annotation" ans PDF zu hängen mit Informationen zu Urheber, Datum oder Vermerken zum Versionsstand usw ...  ;-)

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

---

DRAW-PDF.zip

Ich nutze dazu ein Makro. Geht zwar nicht automatisch mit dem Abspeichern, aber ist nur ein Klick mehr. Mußt nur deinen pdf. Writer richtig konfigurieren vorher. Siehe Anhang

Gruß Marc

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