---

Habe eine Frage wegen acad_strlsort :

(setq liste-linientyp (list "continous" "verdeckt" "strichpunkt" ))
(setq liste-linienuser (list "1" "0" "1"))
(setq liste-linientyp (acad_strlsort liste-linientyp))
(setq liste-linienuser (acad_strlsort liste-linienuser))

Ergebniss

liste-linientyp ("continous" "strichpunkt" "verdeckt")
liste-linienuser ("0" "1" "1")

Hätte aber gerne die gleiche Sortierreihenfolge wie bei liste-linientyp:

liste-linienuser ( "1" "1" "0")

Das soll auch mit einer sehr viel längeren Liste funktionieren.
Hat da jemand eine Idee?. Listenobjekte verketten, sortieren und dann auseinanderbröseln? Die Listen sind zum Glück immer gleich lang.
Hat vielleicht jemand sowas schonmal gemacht.

Danke schon mal

Martin

[Diese Nachricht wurde von mkl-cad am 10. Mai. 2004 editiert.]

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

---

Hi,
z.B. so:

Code:

---

(vl-sort (mapcar (function (lambda (X Y) (cons X Y)))
                (list "continous" "verdeckt" "strichpunkt")
                (list "1" "0" "1")
        ) ;_ end of mapcar
        (function (lambda (X Y) (< (car X) (car Y))))
)

---

Was willst Du denn erreichen? Soll das "1" sichtbar bedeuten und das "0" unsichtbar?
Dann kannst Du als Flag ja auch 'n Integer wählen.
Da käme dann dieses raus: (("continous" . 1) ("strichpunkt" . 1) ("verdeckt" . 0))

Was willst Du denn machen? Vielleicht hat hier ja einer 'nen heißen Tip für Dich...

------------------
Ciao,
Marc

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

---

versteh nicht so ganz...

willst Du nur die liste umdrehen, also rückwärts sortieren?

Dann (setq liste-linienuser (reverse liste-linienuser))?

------------------

gruß
Stephan

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

---

also du hast 2 listen, die irgendwie zusammengehören
und willst ine davon sortieren -> und die 2. soll sich "gleich" mit der ersten umstellen
ich mach das so, dass die 2. liste eine assoc liste ist

(list "continuous" "verdeckt" ....) die soll sortiert werden

und die 2. mach ich so
(list (cons "continuous" "1") (cons "verdeckt "0") ...)

jetzt kannst du die erste liste sortieren und mit (cdr (assoc "continuous" liste2) den dazugehörenden wert holen.

ich mach das z.B.: für stücklisten ausgabe aus unseren plänen
die sortierliste besteht aus der positionsnummer in der werte-liste hab ich dann die infos wie artikelnummer preis masse usw.

im fall das es sich dabei über irgendwelche eigenschaften der linientypen sind, würd ich die gar nicht in einer liste halten, sondern direkt über den namen aus der zeichnung lesen, aber egal...

------------------

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

---

Danke an alle. Ich glaube so komme ich weiter.

Die eine Liste stellt die zur Verfügung stehenden Linientypen dar.
In der zweiten Liste kann der User einstellen ob dieser Linientyp bei Detailzeichnungen mit dem Linientyp continous ausgetauscht werden soll. z. B. wird eine Trinkwasserleitung in einem Grundriss so dargestellt:  ---- TW ---- TW ---- TW ----

In einem Detail wo die Leitung detailierter, also nicht nur mit einer Linie dargestellt werden soll, muß die Linie ausgezogen sein.

Da bei meinem Programm, neben der Usereingabe, ob continous, auch zusätzliche Linientypen erstellt werden können, und ich die immer alphabetisch soriert haben möchte muß die Usereingabe (Liste2) in der gleichen Reihenfolge bleiben.

Dies nur zur Info, bzw. wegen den Nachfragen.

Ich muß dann halt nicht zwei Listen sondern solch eine Liste wie vorgeschlagen erstellen. Vielen Dank nochmal für die schnellen Antworten.

[Diese Nachricht wurde von mkl-cad am 10. Mai. 2004 editiert.]

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