---

Hallo,

ich habe eine Punktliste mit cons erstellt, die in etwa so aussieht:
((x y z)(x y z)...). Nun wollte ich alle y-Werte in eine neue Liste schreiben, um dann den Maximal- und den Minimal-Wert mit MIN bzw. MAX herauslesen zu können.
Hierfür habe ich geschrieben
(setq NeueListe (foreach n Liste (append NeueListe (car Liste))))
Leider ohne Erfolg.
Ersetze ich append NeueListe durch princ, werden mir alle X-Werte säuberlich aufgelistet. So, daß ich glaube an der schreibweise kann es nicht liegen.
Oder doch?
Ich will, wie schon erwähnt die maximalen und minimalen Koordinatenwerte auslesen.

Kann mir jemand auf die Sprünge helfen?

------------------
strukturiertes Zeichnen mit Werner-Maahs

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

---

(setq XLISTE(mapcar 'car  XYZLISTE)) 
(setq YLISTE(mapcar 'cadr  XYZLISTE))
(setq ZLISTE(mapcar 'caddr XYZLISTE))  ??

------------------
      - 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

---

auf die schnell

Code:

---

(mapcar  '(lambda (x)
          (car x)
          )
        '((10 20 30)(10 20 30)(10 20 30))
)

(mapcar  '(lambda (y)
          (cadr y)
          )
        '((10 20 30)(10 20 30)(10 20 30))
)

(mapcar  '(lambda (z)
          (caddr z)
          )
        '((10 20 30)(10 20 30)(10 20 30))
)

---

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

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Hallo,
Ich denke der Grundaufbau ist bei dir nicht ganz richtig.
Denn die Neueliste die du mit Append generieren willst bleibt immer leer da würde noch ein (setq NeueListe fehlen.
So sollte es als Beispiel funktionieren.

Code:

---

(setq Liste '((1 2 3)(4 5 6)(7 8 9)(10 11 12)(13 14 15)(16 17 18)))
(setq NeueListe nil)

(setq NeueListe(foreach n Liste (setq NeueListe(append NeueListe (list(cadr n))))))

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

append ist die schlechteste Wahl ..... wenn schon in einer Schleife , dann die neue Liste mit cons aufbauen ...

Bei jedem Aufruf von append muss einmal die Liste von Anfang bis Ende durchlaufen werden, um das Ende zu finden und dranhängen zu können....

Dazu fällt mir wieder Kerze und Treppe ein ....

------------------
          - 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

---

Danke für Eure Antworten!

Ich habe einen halben Tag daran herumgedocktert und mich festgefahren. In der Zeit, wo ihr mir geantwortet habt, habe ich die Lösung (von Thomas /DADmium) mit mapcar im 'Kochbuch' gefunden.

Es ist so etwas von ärgerlich, man sucht, probiert, sucht probiert und es will einfach nicht gelingen.
Bin leider zu selten mit LISP beschäftigt um all diese Niedlichkeiten parat zu haben.

Das mit append und cons hatte ich schon gelesen, aber germerkt habe ich keinen Zeitunterschied. In meiner Liste sind aber auch nur 37 Aufrufe und bei cons kommt noch das reverse hinzu.

Danke noch einmal für Eure Antworten.

Jetzt muss ich nur noch den größten und kleinsten Wert finden. Aber da gibt es hier mit zu schon einiges zu lesen.

Liebe Grüße

------------------
strukturiertes Zeichnen mit Werner-Maahs

[Diese Nachricht wurde von Werner-Maahs.de am 19. Aug. 2011 editiert.]

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

---

Hallo Werner,
für den größten und kleinsten Wert kannst Du VL-SORT verwenden, wenn Du das Beispiel von Dorfy nimmst wäre das dann zum Beispiel:

Code:

---

(vl-sort
(mapcar  '(lambda (y)
          (cadr y)
          )
        '((10 20 30)(10 20 30)(10 20 30)))
'(lambda(e1 e2)(< e1 e2)))

---

Dann ist der erste Wert der Liste der kleinste Y-Wert.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

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

---

Hallo Werner,
so damit man das ganze auch mal testen und die Unterschiede auch live sehen kann, habe ich hier mal ein kleines Wettrennen veranstaltet.

CONS gegen APPEND !
viel Spaß dabei     

Code:

---

(defun c:C-A-Test (Wiederholungen / Liste1 Zeit)
;;; ;;;
  (defun cons-Test (/)
    (repeat Wiederholungen
      (setq Liste1 (cons '(1.1 1.1 1.1) Liste1))
    )
    (setq Liste1 (reverse Liste1))
  )
;;; ;;;
  (defun append-Test (/)
    (repeat Wiederholungen
      (setq Liste1 (append '((1.1 1.1 1.1)) Liste1))
    )
  )
;;; ;;;

  (princ "\nStart...\n")
  (foreach teil (list append-Test cons-Test)
    (setq Liste1 nil)
    (setq Zeit (getvar "DATE"))
    (princ "\n")
    (teil)
    (princ (list teil
(car Liste1) (length Liste1)
" "
(rtos (* 86400 (- (getvar "date") Zeit)) 2 3)
" Sek."
  )
    )
  )
  (princ "\n\nTest ende!")
  (princ)
)

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Für Eure Hilfe nochmals Danke an alle.

Auch, wenn es für Euch sicherlich nur nebensächlich ist, hier der Dank Eurer Hilfe von mir gewählte Lösungsweg:

Code:

---

...
(setq y-sort (vl-sort (mapcar 'cadr pls) '< ))
(command "ZOom" (list x-min (car y-sort)) (list x-max (last y-sort)))
...

---

Ich kann nicht sagen ob es technisch richtig ist, aber ich kann sagen, dass es wiederholt funktioniert hat.

Liebe Grüße

------------------
strukturiertes Zeichnen mit Werner-Maahs

Ach ja, Medlin,
bald hätte ich es vergessen.
Deinen Code habe ich aus reiner Vorsicht erst gar nicht ausprobiert. Habe befürchtet, dass er meinen Rechner lahm legen wird. Ist eh schon eine Krücke.
Und - ich habe es ja verstanden - cons statt append
Trotzdem Danke

[Diese Nachricht wurde von Werner-Maahs.de am 20. Aug. 2011 editiert.]

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

---

Hehe keine Sorge deinen Rechner wird es nicht lahmlegen. Kannst es ruhig mal mit nem 1000 Wert ausprobieren.

Aber noch eins hierzu.

Zitat:

---

Ich kann nicht sagen ob es technisch richtig ist, aber ich kann sagen, dass es wiederholt funktioniert hat.

---

Ich frage mich jetzt nur wie du an deine Koordinaten kommst oder woher du sie erhälst   

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

Wenn die Koordinaten von AutoCAD Objekten atammen, dann wäre evt.
Befehl: ZOOM Objekt  zum Heranzoom oder
oder für die Umringskoordinaten ein vla-getboundingbox besser gewesen.

Aber wenn die Frage nur ein Fragment eines übergeordneten Problems ist, bekommt man nicht unbedingt die beste Lösung für das übergeordnete Problem, sondern nur für das Fragment.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hi,
ja genau da wollte ich ja auch mit meiner Frage hinzielen.
Denn wenn es sich um Objektdaten handelt waren hier wohl alle hinweise hinfällig und man hätte das mit einem Einzeiler lösen können.

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

 

Zitat:

---

Original erstellt von joern bosse:
Hallo Werner,
für den größten und kleinsten Wert kannst Du VL-SORT verwenden, wenn Du das Beispiel von Dorfy nimmst wäre das dann zum Beispiel:

---

Ja, man kann auch von hinten durch's Auge. Man kann aber auch MAX und MIN verwenden.

Code:

---

(setq meineliste '((10 20 30)(10 20 30)(10 20 30)))
;; liefert kleinsten Y-Wert:
(apply 'min (mapcar 'cadr meineliste))

---

[Diese Nachricht wurde von archtools am 21. Aug. 2011 editiert.]

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

---

Also, die Koordinaten kommen von einer Routine aus meinen WM-Tools (nur etwas für Einsteiger und leicht Fortgeschrittene). Dort gibt es ein Programm ich habe es yFx (Y als Funktion von X genannt). Die Routine zeichnet z.B. eine Sinus-Kurve oder ähnliches. Bisher ohne Punktliste und Zoom-Bereich.
Als Beispiel, wie man eine Punktliste auswerten kann, habe ich die Objektgröße hiermit herausgefiltert und zum Zoomen auf das gezeichnete Objekt verwendet.
Wird alles in Kürze auf meiner Web-Site zu lesen sein, natürlich mit einem Hinweis auf Eure Hilfe hier im CAD.de-Forum.

Ich hoffe alle Fragen beantwortet zu haben.

Nochmals Danke und liebe Grüße

------------------
strukturiertes Zeichnen mit Werner-Maahs

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

---

gibt ja schon gen+ügend Lösungen.

Kurz zu Append

Append verbindet 2 Listen miteinander. Du versuchst aber eine Liste nur mit einem Wert ((car Liste) ist jja nur der X-Wert)zu Appenden. Das geht nicht.

Code:

---

Befehl: (append (list 1 2 3 4 5) 6)
; Fehler: Fehlerhafter Argumenttyp: listp 6

Befehl: (append (list 1 2 3 4 5) (list 6))
(1 2 3 4 5 6)

---

[Diese Nachricht wurde von fuchsi am 22. Aug. 2011 editiert.]

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