Export - PDF-immer schwarz weiss (Autodesk/Inventor) - Lösung vorhanden!


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Export - PDF-immer schwarz weiss (1867 mal gelesen)
77Andreas Mitglied Techniker Beiträge: 244 Registriert: 17.10.2012 Win 7 SP1.0 / 64 bit / IV 2014	erstellt am: 10. Jan. 2014 16:07 <-- editieren / zitieren --> Unities abgeben: Hallo Gemeinde! ist es möglich, dass man PDF's immer in Schwarz/Weiss vom IV-Zeichnungen exportieren kann? Ich kann dies bei den Optionen einstellen-nur geht dies auch automatisiert(kann man IV dazubringen, dass er sich diese Einstellungen merkt?) Wäre mir sehr geholfen, wenn's da was geben würde! ------------------ ----------------------------- Thxs 77Andreas Tippfehler sind gewollt Einen Vorsprung im Leben hat, wer da anpackt, wo die anderen erst einmal reden. John F. Kennedy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
wewe_ro Mitglied MaschBauIng Beiträge: 432 Registriert: 22.06.2004 IV 2023 DELL M7720 + SpacePilot Windows 10; Excel 2016	erstellt am: 10. Jan. 2014 18:54 <-- editieren / zitieren --> Unities abgeben: Nur für 77Andreas Eine dauerhafte Einstellung ist im Programm nicht vorgesehen. Eine Möglichkeit wäre eine iLogic-Regel zu benutzen. Diese hier (die genaue Quelle weiß ich nicht mehr) speichert die Zeichnung und erzeugt anschliessend mit Hilfe der Export-Funktion einen pdf-Ausdruck in das gleiche Verzeichnis. Schwar/weiß ist voreingestellt. path_and_name = ThisDoc.PathAndFileName(False) ' without extension PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") oDocument = ThisApplication.ActiveDocument oContext = ThisApplication.TransientObjects.CreateTranslationContext oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism oOptions = ThisApplication.TransientObjects.CreateNameValueMap oDataMedium = ThisApplication.TransientObjects.CreateDataMedium ThisDoc.Save If PDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then oOptions.Value("All_Color_AS_Black") = 1 oOptions.Value("Remove_Line_Weights") = 0 oOptions.Value("Vector_Resolution") = 400 oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets 'oOptions.Value("Custom_Begin_Sheet") = 2 'oOptions.Value("Custom_End_Sheet") = 4 End If 'Set the destination file name oDataMedium.FileName = path_and_name & ".pdf" 'Publish document PDFAddIn.SaveCopyAs(oDocument, oContext, oOptions,oDataMedium) ------------------ Gruß Werner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Micha Knipp Ehrenmitglied Werkzeugmacher Beiträge: 1795 Registriert: 06.06.2001 P53s 32Gb, 40" WIN10 Inventor Pro 2023 Vault Pro 2023 SpacePilot Pro --- HP Z1 * 27" WIN10 SpaceNavigator Alibre Expert V24 KeyShot 9	erstellt am: 11. Jan. 2014 07:49 <-- editieren / zitieren --> Unities abgeben: Nur für 77Andreas Eine andere Möglichkeit wäre, über einen PDF-Drucker (z.B. PDF-Creator) auszugeben und den Treiber entsprechend einzustellen (SW-Druck). So machen wir es bei uns im Büro. ------------------ Gruß aus Leverkusen Micha Knipp Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
77Andreas Mitglied Techniker Beiträge: 244 Registriert: 17.10.2012 Win 7 SP1.0 / 64 bit / IV 2014	erstellt am: 13. Jan. 2014 09:03 <-- editieren / zitieren --> Unities abgeben: Danke für die beiden Infos.... ------------------ ----------------------------- Thxs 77Andreas Tippfehler sind gewollt Einen Vorsprung im Leben hat, wer da anpackt, wo die anderen erst einmal reden. John F. Kennedy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)