| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: pdf Speicherort (4810 mal gelesen)
|
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2017
|
erstellt am: 26. Jul. 2010 11:13 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, gibt es eine Möglich Adobe Acrobat Distiller 9 dazu zu bringen, die pdf-Dateien immer am gleichen Speicherort wie die entsprechenden dwg-Datein abzulegen (oder zumindest den entsprechenden Pfad als Vorgabe vorzuschlagen)? Danke und Grüße Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 26. Jul. 2010 12:15 <-- editieren / zitieren -->
Hi, >> die pdf-Dateien immer am gleichen Speicherort Vorgabeverzeichnis kannst Du einstellen, indem Du auf Systemsteuerung ==> Drucker ==> AdobePDF doppelklickst, dann in diesem Fenster im Pulldownmenü 'Drucker' auf 'Eigenschaften' und dann dem Screenshot folgen. HTH, - alfred - ------------------ www.hollaus.at |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2017
|
erstellt am: 26. Jul. 2010 12:24 <-- editieren / zitieren --> Unities abgeben:
Hallo Alfred, danke für deine Hilfe. Auf diese Art kann ich aber nur ein fixes Verzeichnis vorgeben. Ich hätte aber gerne, dass die pdf-Dateien dort erstellt werden, wo die entsprechende dwg liegt. D.h. wenn ich am Projekt 1 arbeite, speichere ich die dwg natürlich unter Projekt 1 und genau dort sollte auch die pdf liegen und nicht unter Projekt 2 oder sonst wo. Der Wunsch wäre ja recht simpel, aber möglicherweise nicht erfüllbar. Danke und Grüße
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd10 Mitglied
Beiträge: 763 Registriert: 20.11.2003 Intel(R) Xeon(R) W-2123 CPU @ 3.60GHz 16 GB RAM Windows 10 Pro 64-bit AutoCAD Mechnical 2020 Deu
|
erstellt am: 27. Jul. 2010 08:37 <-- editieren / zitieren --> Unities abgeben: Nur für Danillo
Hallo Danillo, Zitat: Original erstellt von Danillo:
Der Wunsch wäre ja recht simpel, aber möglicherweise nicht erfüllbar.
dafür habe ich den Befehl _plot per Lisp erweitert. Den unten stehenden Lisp-Code kannst Du nicht 1:1 übernehmen, da darin mehrere eigene Funktionen enthalten sind. Der Code soll nur den möglichen Ablauf aufzeigen und als Anleitung dienen. ; Die PDF-Datei gegebenenfalls entsprechend der DWG-Datei ändern (setq cdruckersu "freepdf") (setq cdateipapl (strcat (getvar "LOGFILEPATH") "\\" "PlotAndPublishLOG.csv")) (setq cdateipapl (datfind cdateipapl t)) (if (/= cdateipapl nil) ; zuletzt verwendeter Drucker suchen (progn (setq lzeilen (ascii_datei_lesen cdateipapl t)) (setq lzeilen (reverse lzeilen)) ; damit der zuletzt verwendete Drucker gefunden wird (setq ilpos (listenpos_ermitteln lzeilen (strcase "\"sh") 0 1)) (setq cdruckerinfo (nth ilpos lzeilen)) (setq ldruckerinfo (str_spalten_ermitteln cdruckerinfo ";")) (setq clayout (nth 11 ldruckerinfo)) (setq clayout (strchr_anfang clayout "\"")) (setq clayout (strchr_ende clayout "\"")) (setq cagg (nth 14 ldruckerinfo)) (setq cagg (strchr_anfang cagg "\"")) (setq cagg (strchr_ende cagg "\"")) ) ; progn (progn ; else (setq clayout "Model") (setq cagg cdruckersu) ; es soll die PDF-Datei gesucht werden ) ; progn ) ; if (setq isposfreepdf (strpos (strcase cagg) (strcase cdruckersu) 1)) (if (/= isposfreepdf nil) (progn (setq cerwpdf ".pdf") (setq cverzpdfalt (strcat (getenv "temp") "\\")) ; muss mit dem Verzeichnis im Profil vom Programm FreePDF XP übereinstimmen (setq cdateinamepdfneu (dateiname_ermitteln (getvar "dwgname"))) (setq cdateipdfsu (strcat cdateinamepdfneu "*" clayout "*" cerwpdf)) (setq ianzschl 15) ; maximale Versuche (setq izlerschl 1) (while (and (<= izlerschl ianzschl) (= (setq ldateipdfvorh (vl-directory-files cverzpdfalt cdateipdfsu 1)) nil)) (if (= izlerschl 1) (meldung_befehlszeile "Warten." t) (meldung_befehlszeile "." nil) ; else ) ; if (warten 2.0) (setq izlerschl (+ izlerschl 1)) ) ; while (if (/= ldateipdfvorh nil) (progn (setq cdateipdfalt (strcat (dateiname_ermitteln (nth 0 ldateipdfvorh)) cerwpdf)) (setq cverzdwg (getvar "dwgprefix")) (setq cdateipdfneu (strcat cdateinamepdfneu cerwpdf)) (datei_umbenennen (strcat cverzpdfalt cdateipdfalt) (strcat cverzpdfalt cdateipdfneu)) (setq cverzdwg (getvar "dwgprefix")) (setq cdateilo cdateipdfneu) (datei_verschieben (strcat cverzpdfalt cdateipdfneu) cverzdwg cdateilo) ) ; progn ) ; if ) ; progn ) ; if Viele Grüße Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Danillo Mitglied Bauingenieur
Beiträge: 229 Registriert: 12.11.2003 Windows 10 - AutoCAD 2017
|
erstellt am: 27. Jul. 2010 18:59 <-- editieren / zitieren --> Unities abgeben:
|