---

Hallo Zusammen, kann mir jemand sagen wie ich einen Wert auslese, der in einer Liste 2x vorkommt.

Aus dieser Liste brauche ich den Wert 1000.0 (Key 40)
Mit (assoc 40 liste) bekomme ich 1.0

((-1 . <Objektname: 7fffe6b8850> ) (0 . "ACSH_CYLINDER_CLASS") (330 . <Objektname: 7fffe6b8860> ) (5 . "3FD") (100 . "AcDbEvalExpr") (90 . 1) (98 . 31) (99 . 83) (100 . "AcDbShHistoryNode") (90 . 31) (91 . 83) (40 . 1.0) (41 . 0.0) (42 . 0.0) (43 . 2218.38) (44 . 0.0) (45 . 1.0) (46 . 0.0) (47 . 190.322) (48 . 0.0) (49 . 0.0) (50 . 1.0) (51 . 500.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (55 . 1.0) (62 . 256) (92 . 7) (347 . <Objektname: 7ffffbfe910> ) (100 . "AcDbShPrimitive") (100 . "AcDbShCylinder") (90 . 31) (91 . 83) (40 . 1000.0) (41 . 20.0) (42 . 20.0) (43 . 20.0))

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

---

(cdr(assoc 40)(member '(100 . "AcDbShCylinder")  LISTE))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Woher weißt du, dass du den "richtigen" Wert hast - nur nach der Reichenfolge in der Liste?
Quick & dirty wäre, die Liste umdrehen und dann das letzte Vorkommen des Gruppencodes 40 abzufragen, aber es gibt elegantere Lösungen.

(assoc 40 (reverse liste))

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

Udo Hübner
www.CAD-Huebner.de

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

---

Super, vielen Dank 

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