| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
|
Autor
|
Thema: vl-sort was mache ich falsch? (458 mal gelesen)
|
Niggemann
Mitglied
   Beiträge: 170
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: 9808
Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 08. Jun. 2006 21:34 <-- editieren / zitieren --> Unities abgeben: Nur für Niggemann 
|
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13530
Registriert: 30.11.2003 .
|
erstellt am: 08. Jun. 2006 21:38 <-- editieren / zitieren --> Unities abgeben: Nur für Niggemann
Zitat:
Original erstellt von Niggemann:
HalloMit 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: 170
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 |
| | Anzeige: | Infos zum Werbeplatz >> | yasuCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
yasuCAD has been developed for Stormwater Network Design. It is for Drawing / Modelling / Planning / Design / Analyze the stormwater network.
The software works under AutoCAD or ZWCAD.
|
|
Niggemann
Mitglied
Beiträge: 170
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:
|
Foren auf CAD.de
| 
