---

Hallo,

kann mir jemand helfen in dieses LISP noch eine Möglichkeit des Benutzers zur Auswahl von Hoch und Querformat einzubinden?

Vielen Dank für die Hilfe!
Gruß Christian

======================================================================
(defun c df (/ p1 p2 File dcl_id)
(setq p1 (getpoint "\nUntere linke Ecke des Fensters angeben: "))
(setq p2 (getpoint "\nObere rechte Ecke des Fensters angeben: \n"))
(WarDateiPlot2000 p1 p2 File)
        (princ)
)

(defun WarDateiPlot2000 (p1 p2 File)
(setvar "filedia" 0)
(command "_.-plot")
(command "_y") ; detailliert?
(command "Model") ; Layoutnamen eingeben
(command "FreePDF XP") ; Ausgabegerätname eingeben
(command "A4") ; Papierformat angeben
(command "M") ; Papiereinheiten angeben
(command "H") ; Ausrichtung der Zeichnung angeben
(command "_n") ; Auf dem Kopf plotten?
(command "_w") ; Plotbereich angeben [Anzeige/Grenzen/Limiten/ANsicht/Fenster]
(command p1) ; Untere linke Ecke des Fensters angeben
(command p2) ; Obere rechte Ecke des Fensters angeben
(command "A") ; Millimeter=Zeichnungseinheiten)
(command "0.00,0.00") ; Plotversatz angeben (x,y) oder [Zentrum]
(command "_y") ; Mit Plotstilen plotten?
(command "warema_normal.ctb") ; Potstiltabellenname angeben
(command "_n") ; Mit Linienstärken plotten?
(command "_n") ; Verdeckte Linien entfernen?
(command "_n") ; Plot in Datei ausgeben
(command "_y") ; Änderungen an Register Modell speichern
(command "_y") ; Änderungen an Register Modell speichern
(setvar "filedia" 1)
)

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

---

hi,
könnte/sollte diese Zeile sein
(command "H") ; Ausrichtung der Zeichnung angeben
versuchmal (command pause)

besser wäre was mit Abfrage (inetget......

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

(defun WarDateiPlot2000 (/ p1 p2 File Ausrichtung)
(initget "Hoch Quer")
(if(=(getkword "\nBlattausrichtung [Hoch/Quer]<Hoch>: ")"Quer")
  (setq Ausrichtung "Q")
  (setq Ausrichtung "H")
)
(command "_.-plot")
(command "_y") ; detailliert?
(command "Model") ; Layoutnamen eingeben
(command "FreePDF XP") ; Ausgabegerätname eingeben
(command "A4") ; Papierformat angeben
(command "M") ; Papiereinheiten angeben
(command Ausrichtung) ; Ausrichtung der Zeichnung angeben
(command "_n") ; Auf dem Kopf plotten?
(command "_w") ; Plotbereich angeben [Anzeige/Grenzen/Limiten/ANsicht/Fenster]
(command p1) ; Untere linke Ecke des Fensters angeben
(command p2) ; Obere rechte Ecke des Fensters angeben
(command "A") ; Millimeter=Zeichnungseinheiten)
(command "0.00,0.00") ; Plotversatz angeben (x,y) oder [Zentrum]
(command "_y") ; Mit Plotstilen plotten?
(command "warema_normal.ctb") ; Potstiltabellenname angeben
(command "_n") ; Mit Linienstärken plotten?
(command "_n") ; Verdeckte Linien entfernen?
(command "_n") ; Plot in Datei ausgeben
(command "_y") ; Änderungen an Register Modell speichern
(command "_y") ; Änderungen an Register Modell speichern
)

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Vielen vielen Dank erstmal.
Wie sieht das ganze dann in Kombination mit dem Befehl zur Auswahl des Fensters aus?
Ich bekomme die ganze Zeit nur Syntaxfehler 

Gruß Christian

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

---

(defun WarDateiPlot2000 (/ p1 p2 File Ausrichtung)
(initget "Hoch Quer")
(if(=(getkword "\nBlattausrichtung [Hoch/Quer]<Hoch>: ")"Quer")
  (setq Ausrichtung "Q")
  (setq Ausrichtung "H")
)

(or(and(setq P1 (getpoint "\nersten Fenstereckpunkt angeben: "))
      (setq P2 (getcorner P1 "\nzweiten Fenstereckpunkt angeben: "))
  )
  (and(setq P1(getvar "extmin"))
      (setq P1(getvar "extmax"))
  )
)

(command "_.-plot")
........

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

jetzt funzt es, nochmals danke! 

PS: Was ist der beste Weg sich LISP beizubringen? Was sind gute Quellen (Bücher/I-Net)?

Gruß Christian

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

---

 

Zitat:

---

Original erstellt von lutzc:

PS: Was ist der beste Weg sich LISP beizubringen?

---

Viele Programme schreiben und dabei aus Fehlern lernen
 

Zitat:

---

Original erstellt von lutzc:

Was sind gute Quellen (Bücher/I-Net)?

---

Kochbuch autolisp
Mapcars Tutorials
evtl. noch dieses und andere Lispforen
afralisp.net ist auch nicht schlecht

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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