---

Hallo Forum,
ich (Anfänger) bin gerade an einer LSP Datei - ich möchte eine PLT-Datei in ein Verzeichnis schreiben. Die folgende Zeile funktioniert schon:

(strcat "u:\\druck\\in\\" (vl-filename-base (getvar "dwgname")) "") "" "")

Jedoch bekomme ich es nicht hin, dass die Datei "DWGNAME-Layout?" heisst. Wir arbeiten mit MDT6 und mehreren Layouts pro Datei.

Vielen Dank für Eure Hilfe... 

Gruß aus Hessen
Martin

PS: Leider kein Hitzefrei...

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

---

Hallo Martin,

versuchs mal hiermit:

Code:

---

(strcat "u:\\druck\\in\\"
(vl-filename-base (getvar "dwgname"))
"-"
(vla-get-Name(vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
)

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Hallo Martin,

den Code von Holger kann ich auch gebrauchen und er funktioniert auch prima. Allerdings muss ich vorher noch eine Zeile einfügen :
(vl-load-com)
Ohne diesen Aufruf sind bei mir die vla-Funktionen nicht verfügbar.

Gruß an alle
Helmut

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

---

Hallo Holger,
erstmal vielen Dank für die schnelle Antwort - aber irgendwie steckt bei mir der Wurm im Getriebe...

Folgend findest Du meine LSP Datei, sie läuft durch, erstellt von dem aktiven Layout eine PS Datei unter dem "DWGNAMEN"

(defun c:PS_MDT6_OUT ()
  (setq diafile (getvar "filedia"))
  (setvar "filedia" 0)
  (command "-layer" "machen" "iso" "se" "0" "fr" "iso" "")
  (command "_zoom" "g")
  (command "_.-plot" "_yes" "" "PS Drucker A3 QUER (PDF).pc3" "A3" "_m" "Hochformat" "nein" "grenzen" "anpassen" "0,0" "ja" "PDF.ctb" "ja" "nein" "nein" "nein" "ja"
  (strcat "u:\\druck\\in\\" (vl-filename-base (getvar "dwgname")) "") "" "")
  (setvar "filedia" diafile)
  (command "-layer" "ta" "iso" "")
  (command "_zoom" "g")
  (ALERT "Es wurde eine PDF Datei im Verzeichnis: U:/DRUCK/OUT... erstellt...!")
  )

Wenn ich nun die Zeile 

  (strcat "u:\\druck\\in\\" (vl-filename-base (getvar "dwgname")) "") "" "")

durch Deine ersetze

(strcat "u:\\druck\\in\\"
(vl-filename-base (getvar "dwgname"))
"-"
(vla-get-Name(vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
)

bekomme ich eine Fehlermeldung beim Ausführen:

; Fehler: Falsch formatierte Liste in Eingabe

Mit der ersten LSP wird eine Datei mit Namen:  DWGNAME.PLT erstellt, was ich möchte ist, DWGNAME-Layout1.PLT usw...

Vielen Danke nochmals für Deine Antwort....

Gruß aus Hessen
ein auf dem Schlauchstehender 
Martin

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

---

Hallo Martin,

du darfst nur den (strcat ... ) durch mein (strcat ...) ersetzen. Du ersetzt zu viel.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Hallo Holger,
ich steh tierisch auf dem Schlauch... - ich habe doch nur die eine Zeile durch deine ersetzt. Folgend das LSP welches den Fehler verursacht.

(defun c:PS_MDT6_OUT ()
  (setq diafile (getvar "filedia"))
  (setvar "filedia" 0)
  (command "-layer" "machen" "iso" "se" "0" "fr" "iso" "")
  (command "_zoom" "g")
  (command "_.-plot" "_yes" "" "PS Drucker A3 QUER (PDF).pc3" "A3" "_m" "Hochformat" "nein" "grenzen" "anpassen" "0,0" "ja" "PDF.ctb" "ja" "nein" "nein" "nein" "ja"
  (vl-load-com)
  (strcat "u:\\druck\\in\\"
  (vl-filename-base (getvar "dwgname"))
  "-"
  (vla-get-Name(vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
  )
  (setvar "filedia" diafile)
  (command "-layer" "ta" "iso" "")
  (command "_zoom" "g")
  (ALERT "Es wurde eine PDF Datei im Verzeichnis: U:/DRUCK/OUT... erstellt...!")
  )

Danke Dir für die Antworten....

Gruß Martin

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

---

Martin,

hier gehts nicht um Zeilen tauschen sondern um den (srcat- befehl.

Jeder Befehl hat eine öffnende und eine schließende Klammer.
Und genau von der Öffnenden bis zur schließenden Klammer deines (strcat ...) mußt du tauschen. Dann sollte es passen.

Im VLisp-Editor, stelle den Cursor mal links neben die offnende Klammer und drücke dann [Shift]+[Strg]+[9] dann hast du genau den Bereich der getauscht werden muß.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

---

Hallo Holger... rießen großes Dankeschön, es funzt! (da kann man mal sehen wie wichtig doch die ein oder andere Klammer ist... ) 
Danke Dir

Gruß aus dem warmen Hessen
Martin

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