Autor
|
Thema: Zeichnung als PDF speichern (15831 mal gelesen)
|
mosul2004 Mitglied Konstrukteurin
Beiträge: 116 Registriert: 09.01.2008 Windows XP 64bit Catia V5 R17 SP7
|
erstellt am: 21. Dez. 2010 15:10 <-- editieren / zitieren --> Unities abgeben:
Hallo, wie kann ich ein Blatt von mehrere Blätter Zeichnung als PDF speichern. Ich habe Zeichnung beinhalt 3 Blätter und davon möchte ich nur erste Blatt als PDF speichern. Wie geht es das? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
postler Mitglied Konstrukteur
Beiträge: 104 Registriert: 16.02.2004
|
erstellt am: 21. Dez. 2010 15:50 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
Meines Wissens nach werden bei PDF immer alle Blätter gespeichert (jeweils als einzelne Datei) Wir löschen einfach den restlichen "Schmutz". Ich hatte auch schon mal nach einer Einstellung für das Problem gesucht.... Falls Jemand mittlerweile eine Lösung hat wär's toll. ------------------ Gruß Heinrich Der Horizont vieler Menschen ist ein Kreis mit dem Radius Null - und das nennen sie ihren Standpunkt. (Albert Einstein) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tobul Mitglied Physiker
Beiträge: 191 Registriert: 06.05.2003 Catia-V5 R18-R30 Delmia R19-R29 NX 12,1892 Windoof 7,10
|
erstellt am: 21. Dez. 2010 16:02 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
|
Thomas Harmening Ehrenmitglied V.I.P. h.c. Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 NX12
|
erstellt am: 21. Dez. 2010 17:13 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
Code: Sub CATMain() 'alle Drawings in einem Verzeichnis als PDF speichernSet Documents = CATIA.Documents nr = "C:\v5-tmp\*.CATDrawing*" MyFile = Dir(nr) MyFile1 = "C:\v5-tmp\" & MyFile While MyFile <> "" Documents.Open (MyFile1) Dim specsAndGeomWindow As specsAndGeomWindow Set specsAndGeomWindow = CATIA.ActiveWindow MyFile = Dir Dim drawingDocument As drawingDocument Set drawingDocument = CATIA.ActiveDocument Dim win As String Dim product As product win = CATIA.ActiveWindow.Name win1 = Split(win, ".") win = win1(0) win = "C:\v5-tmp\" & win & ".pdf" drawingDocument.ExportData win1, "pdf" ' Save multisheet Document in a single Vectorial file , Haken entfernen, dann werden je Sheet ein PDF erzeugt CATIA.ActiveDocument.Close MyFile1 = "C:\v5-tmp\" & MyFile Wend End Sub
IMHO wird immer das komplette Drawing as Pdf exportiert, obiges Makro falls einer Verzeichnisse mit Drawings konvertieren muss, Pfade anpassen.Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 21. Dez. 2010 17:27 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
|
bgrittmann Moderator Konstrukteur
Beiträge: 11849 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 21. Dez. 2010 18:12 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
Servus AFAIR kann man unter Tools -> Optionen -> Allgemein -> Kompatibilität -> Grafikformate einstellen ob die Blätter einzeln oder in einer Datei exportiert werden. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Acki84 Mitglied Dipl. Ing. (FH) Kfz-Technik
Beiträge: 72 Registriert: 07.09.2007
|
erstellt am: 13. Jan. 2011 09:44 <-- editieren / zitieren --> Unities abgeben: Nur für mosul2004
|