vl-sort was mache ich falsch? (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: vl-sort was mache ich falsch? (361 mal gelesen)
Niggemann Mitglied Beiträge: 159 Registriert: 31.10.2003 Win 98 Se, ACAD 2004, XP Prof, ACAD 2004 und ACAD 2010	erstellt am: 08. Jun. 2006 20:05 <-- editieren / zitieren --> Unities abgeben: Hallo Mit folgenden Aufruf möchte ich eine Liste sotieren. (setq ARTIKEL_LIST (vl-sort ARTIKEL_LIST (function (lambda (e1 e2) (> (car e1) (cadr e2)))))) das Ergebnis ist folgendes: (("GIR015" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR001" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR002" "Gira Standard Schaltermaterial" ... ("GIR003" "Gira Standard Schaltermaterial" ... ("GIR004" "Gira Standard Schaltermaterial" ... ("GIR005" "Gira Standard Schaltermaterial" ... ("GIR007" "1Gira Standard Schaltermaterial" ... ) Die Liste sollte aber so aussehen: (("GIR001" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR002" "Gira Standard Schaltermaterial" ... ("GIR003" "Gira Standard Schaltermaterial" ... ("GIR004" "Gira Standard Schaltermaterial" ... ("GIR005" "Gira Standard Schaltermaterial" ... ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR007" "1Gira Standard Schaltermaterial" ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR015" "Zeile 1" "Zeile 2" "Zeile 3" ... ) Das heißt mit GIR001 anfangen und mit GIR015 aufhöhren wer kann mir weiter helfen Dank im voraus Gruß Niggemann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer Beiträge: 9732 Registriert: 01.12.2003 One AutoCAD 2.5 - 2023, Civil 3D, Win10/win11	erstellt am: 08. Jun. 2006 21:34 <-- editieren / zitieren --> Unities abgeben: Nur für Niggemann besser so: Code: (function (lambda (e1 e2) (< (car e1)(car e2)))))) ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 08. Jun. 2006 21:38 <-- editieren / zitieren --> Unities abgeben: Nur für Niggemann Zitat: Original erstellt von Niggemann: Hallo Mit folgenden Aufruf möchte ich eine Liste sotieren. (setq ARTIKEL_LIST (vl-sort ARTIKEL_LIST (function (lambda (e1 e2) (> (car e1) (cadr e2)))))) das Ergebnis ist folgendes: (("GIR015" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR001" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR002" "Gira Standard Schaltermaterial" ... ("GIR003" "Gira Standard Schaltermaterial" ... ("GIR004" "Gira Standard Schaltermaterial" ... ("GIR005" "Gira Standard Schaltermaterial" ... ("GIR007" "1Gira Standard Schaltermaterial" ... ) Die Liste sollte aber so aussehen: (("GIR001" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR002" "Gira Standard Schaltermaterial" ... ("GIR003" "Gira Standard Schaltermaterial" ... ("GIR004" "Gira Standard Schaltermaterial" ... ("GIR005" "Gira Standard Schaltermaterial" ... ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR007" "1Gira Standard Schaltermaterial" ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3" ... ("GIR015" "Zeile 1" "Zeile 2" "Zeile 3" ... ) Das heißt mit GIR001 anfangen und mit GIR015 aufhöhren wer kann mir weiter helfen Dank im voraus Gruß Niggemann Also bei mir funzt (setq Liste '(("GIR015" "Zeile 1" "Zeile 2" "Zeile 3" ) ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3" ) ("GIR004" "Gira Standard Schaltermaterial") ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3" ) ("GIR001" "Zeile 1" "Zeile 2" "Zeile 3" ) ("GIR002" "Gira Standard Schaltermaterial") ("GIR005" "Gira Standard Schaltermaterial") ("GIR003" "Gira Standard Schaltermaterial") ) ) (setq L(vl-sort LISTE '(lambda (X1 X2)(< (car X1) (car X2))))) (princ L) IMHO hast du ohne nachzudenken das Bsp aus der Hilfe kopiert? ------------------ - 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
Niggemann Mitglied Beiträge: 159 Registriert: 31.10.2003 Win 98 Se, ACAD 2004, XP Prof, ACAD 2004 und ACAD 2010	erstellt am: 08. Jun. 2006 21:54 <-- editieren / zitieren --> Unities abgeben: Hallo Udo das hatte ich schon Probiert mit diesem Ergebnis (("GIR015" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR001" "Zeile 1" "Zeile 2" "Zeile 3)") ("GIR002" "Gira Standard Schaltermaterial") ("GIR003" "Gira Standard Schaltermaterial") ("GIR004" "Gira Standard Schaltermaterial") ("GIR005" "Gira Standard Schaltermaterial") ("GIR007" "Gira Standard Schaltermaterial") ) Dieses ist die Quell Liste die ich sortieren wollte (("GIR001" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR007" "Gira Standard Schaltermaterial") ("GIR002" "Gira Standard Schaltermaterial") ("GIR003" "Gira Standard Schaltermaterial") ("GIR004" "Gira Standard Schaltermaterial") ("GIR005" "Gira Standard Schaltermaterial") ("GIR006" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR010" "Zeile 1" "Zeile 2" "Zeile 3") ("GIR015" "Zeile 1" "Zeile 2" "Zeile 3") ) Die ersten 6 Zeilen kommen aus einer Test Liste die Zeilen GIR006, GIR010 und GIR015 wurden an die Liste mit einem LISP angefügt. Gruß Niggemann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Niggemann Mitglied Beiträge: 159 Registriert: 31.10.2003 Win 98 Se, ACAD 2004, XP Prof, ACAD 2004 und ACAD 2010	erstellt am: 08. Jun. 2006 22:04 <-- editieren / zitieren --> Unities abgeben: Hallo Thomas Du hast Recht aber in der Hilfe steht ..(< (cadr e1) (cadr e2)).. ich hab wenigsten aus dem "cadr" "car" gemacht. Danke!! Gruß Niggemann Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)