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