---

Hallo zusammen, habe wieder einmal ein kleines Problem.
Wie kann ich mehrere Werte einer Liste zusammenzählen damit ich am Schluss eine neue Liste mit den Gesamtergebnissen bekomme?
Danke und Gruss
Patrick

z.B.:
alt: ((Layer1 . 1111.11) (Layer1 . 2222.22) (Layer2 . 4444.44))
neu: ((Layer1 . 3333.33) (Layer4 . 4444.44))

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

---

Hallo Patrick,

folgende Zeilen machen das:

Code:

---

(defun addcdrsortli (li /)
  (mapcar '(lambda (W)
    (cons W
  (apply '+
  (mapcar 'cdr
  (vl-remove-if-not
    '(lambda (CW)
      (= W (car CW))
      )
    li
    )
  )
  )
  )
    )
  (remove_dopp (mapcar 'car li))
  )
  )
(defun remove_dopp (li / erg)
  (mapcar '(lambda (W)
    (if (not (member W erg))
      (setq erg (cons W erg))
      )
    )
  li
  )
  (reverse erg)
  )
(vl-load-com)
(setq ali '(("Layer1" . 1111.11) ("Layer1" . 2222.22) ("Layer2" . 4444.44)))
(addcdrsortli ali)

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
NEU: AutoLISP- Projektschulung
NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren
AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop

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

---

Super, genau dass was ich suche!
Danke!!!

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