| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| SAP PLM zentraler Bestandteil des Lösungsangebots, eine Pressemitteilung
|
Autor
|
Thema: PDF mit Layoutnamen (2671 mal gelesen)
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 25. Apr. 2013 11:22 <-- editieren / zitieren --> Unities abgeben:
Hallo, wie bekomme ich ein PDF mit dem DWG to PDF.pc3 und als Vorgabe für den Namen der PDF den Layoutnamen. Damit ich nur noch den den Speicherort angeben muß. Mit "-export" bekomme ich den Namen schon rein nur wird nicht nach den Speicherort gefragt.
Code: (defun c dfp ( / as) (setq as (getvar "CTAB")) (if as(command "-export" "PDF" "k" "n" as)) (setq as nil) (princ) )
Kann man vielleicht bei "exportpdf" den Layoutnamen mit übergeben? ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Apr. 2013 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 25. Apr. 2013 14:13 <-- editieren / zitieren --> Unities abgeben:
Also so funktioniert es schon mal. Wie bekomme ich jetzt den zuletzt ausgewählten Pfad beim zweiten plotten als Vorgabe, ohne immer den Pfad neu wählen zu müssen? Danke Code: (defun c:Pdfp ( / as pfad ) (setq as (getvar "CTAB")) (setq pfad (getfiled "Planausgabeverzeichnis wählen" as "pdf" 1)) (if as(command "-export" "PDF" "k" "n" pfad)) (setq as nil) (setq pfad nil) (princ) )
------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 25. Apr. 2013 19:12 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 25. Apr. 2013 20:22 <-- editieren / zitieren --> Unities abgeben:
Danke Geos, wenn ich das richtig verstanden habe soll ich mit deinem Beispiel den Pfad in einer Variablen speichern und dann prüfen ob sie beim zweiten mal vorhanden ist. Das geht nicht ganz da ja die Auswahl eines neuen Speicherortes auch möglich sein soll. Es würde ja mit "exportPDF" laufen, nur kann ich nach den Befehl "exportPDF" nichts mehr in das aktive Fenster (Dateinamen) über die Programmierung eintragen. Alles weitere wird in das Befehlsfenster geschrieben und nicht in das aktive Fenster für den Dateinamen. Keine Ahnung warum das so ist. ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2013 11:58 <-- editieren / zitieren --> Unities abgeben:
Hiermit Code: (defun c:Pdfp ( / as ) (setq as (getvar "CTAB")) (if as(command "exportpdf")) (princ as) (setq as nil) (princ) )
bekomme ich dann im Befehlsfenster Code: Befehl: Befehl: PDFP exportpdf Befehl: Test
Der Befehl "exportpdf" öffnet ein Fenster um den Pfad und Namen an zu geben, aber der Name (Test) wird in das Befehlsfenster geschrieben und nicht in das Fenster zum speichern. Kann man keine Eingaben in solchen Dialogfenstern über eine Programmierung machen? ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 26. Apr. 2013 12:15 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2013 13:31 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: setzte filedia auf 0
Dann habe ich aber keine Möglichkeit mehr den Speicherort mit der Maus zu wählen und muss den kompletten Pfad eingeben. ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 26. Apr. 2013 13:34 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 26. Apr. 2013 13:37 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Hallo xem, mal ein paar Ideen für Dein Problem von mir: Für die Dateiausgabe verweise ich mal hierdrauf. Zum Setzen / ggf. Neusetzen des Pfades: - Die Variable Pfad nicht lokal setzen, dann bleibt sie auch beim nächsten Auffruf der Lisp in der gleichen Zeichnung erhalten. - Zu Anfang prüfen, ob pfad belegt ist (if pfad ... ...) - Wenn ja, abfragen ob pfad (hier ggf. mit ausgeben) beibehalten werden soll, oder ein neuer Pfad ausgewählt werden soll. - Die Auswahl mittels (getfiled ..) liefert den kompletten Dateinamen, hieraus mittels (vl-filename-directory ...) den Pfad herausholen. HTH Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2013 13:37 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CADmium: dann gibst du vorher den Pfad mit (getfiled .. ) ein .....
Damit muss ich dann aber immer den Pfad von "Eigene Dokumente" zum Ziel-Ordner navigieren, da nicht der letzte Ziel-Ordner gespeichert wird wie z.B. bei "exportpdf". ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadplayer Ehrenmitglied CADniker
Beiträge: 1833 Registriert: 28.04.2009
|
erstellt am: 26. Apr. 2013 13:42 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Wichtig ist ausserdem, das deine Plotkonfiguration hieb- und stichfest ist. Es können Probleme auftreten, wenn die PC3 und PMP datei nicht richtig konfiguriert sind. Das war das auslösende Problem bei mir, desweiteren empfehle ich noch den thread------------------ Gruss Dirk http://cadplayerlounge.blogspot.se Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 26. Apr. 2013 13:47 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2013 13:59 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von spider_dd: (getfiled kannst Du doch aber den letzten Pfad als Parameter (default) mitgeben, dann öffnet das Auswahlfenster gleich in diesem pfad.Gruß Thomas
Damit wird der Ordner vorgegeben in der die DWG liegt. Wenn ich die PDF auf den Desktop speichere kommt beim zweiten Aufrufen des Befehl aber wieder der Ordner als Vorgabe wo die DWG liegt. Der Ausgabepfad wird nicht gespeichert. ------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 26. Apr. 2013 15:32 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Hallo xem, OK noch mal getestet und folgendes festgestellt:
(vl-filename-directory ...) liefert den Pfad ohne abschließende "\\", die braucht (getfiled ..) aber. Folgendes funktionierte dann: Befehl: (setq pfad (getfiled "titel" "" "pdf" 1)) "C:\\Daten\\eigene\\S3120001.pdf" Befehl: (setq pfad (strcat (vl-filename-directory pfad) "\\")) "C:\\Daten\\eigene\\" Befehl: (setq pfad (getfiled "titel" pfad "pdf" 1)) öffnete dann das Auswahlfenster mit vorausgwähltem Pfad C:\Daten\eigene Und wenn Du dann noch (setq pfad (strcat (vl-filename-directory (getfiled "titel" (strcat pfad dateiname_hier_dein_layout) "pdf" 1)) "\\")) machst, erschlägst Du gleich alles. Dies geht aber nur, wenn pfad schon belegt ist. Wenn Du nun aber noch bei (strcat pfad dateiname...) pfad durch (if pfad pfad "") ersetzt, wird auch dieser Fall abgedeckt. HTH Gruß Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 26. Apr. 2013 16:46 <-- editieren / zitieren --> Unities abgeben:
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 30. Apr. 2013 14:10 <-- editieren / zitieren --> Unities abgeben:
Hallo, so läuft es.
Code: (defun c:Pdf ( / as ) (setq as (getvar "CTAB")) (setq pfad (strcat (vl-filename-directory (getfiled "titel" (strcat (if pfad pfad "") as) "pdf" 1)) "\\")) (if as (command "-export" "PDF" "k" "n" (strcat pfad as))) (setq as nil) (princ) )
Wenn ich jetzt den Pfad dauerhaft speichern möchte, kann ich das über die Windows Registrie machen mit vl-registry-read und vl-registry-write? Oder gibt es da eine bessere Methode? So wird der Pfad in der Registrie gespeichert.
Code: (defun c:Pdf ( / as ) (vl-load-com) (setq key(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\PROFILES\\" (vla-get-ActiveProfile (vla-get-PROFILES(vla-get-preferences(vlax-get-acad-object)))) "\\Dialogs" )) (setq pfad (vl-registry-read (strcat KEY "\\DWFNavDlg") "InitialDirectory")) (setq as (getvar "CTAB")) (setq pfad (strcat (vl-filename-directory (getfiled "Speichern unter ..." (strcat (if pfad pfad "") as) "pdf" 1)) "\\")) (if as (command "-export" "PDF" "k" "n" (strcat pfad as))) (vl-registry-write (strcat KEY "\\DWFNavDlg") "InitialDirectory" pfad) (princ) )
[Diese Nachricht wurde von xem am 30. Apr. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 30. Apr. 2013 18:26 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 02. Mai. 2013 09:02 <-- editieren / zitieren --> Unities abgeben:
Danke Geos für den Tip. Ich habe den Code jetzt so, das ich noch auswählen kann welchen Dateinamen ich haben möchte. Code: (defun c:Pdf ( / as au ) (vl-load-com) (initget "DWG Layout") (setq au (getkword "\nDateibezeichnung_wählen [DWG/Layout] <DWG>: ")) (if (= au "DWG") (setq as (vl-filename-base (getvar "DWGNAME")))) (if (= au "Layout") (setq as (getvar "CTAB"))) (setq key(strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\PROFILES\\" (vla-get-ActiveProfile (vla-get-PROFILES(vla-get-preferences(vlax-get-acad-object)))) "\\Dialogs" )) (setq pfad (vl-registry-read (strcat KEY "\\DWFNavDlg") "InitialDirectory")) (setq pfad (strcat (vl-filename-directory (getfiled "Speichern unter ..." (strcat (if pfad pfad "") as) "pdf" 1)) "\\")) (if as (command "-export" "PDF" "k" "n" (strcat pfad as))) (vl-registry-write (strcat KEY "\\DWFNavDlg") "InitialDirectory" pfad) (princ) )
Funktionieren tut es, aber ist das auch so "sauber" programmiert? Ich verstehe zwar was alles im Code programmiert wurde, aber ist das vom Ablauf und Aufbau auch so ok? [Diese Nachricht wurde von xem am 16. Mai. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |