---

Hallo

Ich bräuchte bitte ein bischen Hilfe bei meinem unten angeführten
Beispiel. Und zwar möchte ich meine Liste die neben dem Objektnamen
auch den x und y Wert des Objekts enhält sortieren.
Und zwar nach Benutzereingabe Eingabe aufsteigen nach x oder y Koordinaten
oder absteigend.

Bin noch Anfänger.

Danke

Code:

---

(if (setq auswahl (ssget '((0 . "INSERT"))))
(progn
(setq n 0)
(repeat (sslength auswahl)
(setq obj_na (ssname auswahl n) n (+ n 1))
(setq obj_data (entget obj_na))
    (setq obj_punkt (cdr (assoc 10 obj_data)))

(setq punktx (car obj_punkt))
(setq punkty (cadr obj_punkt))
(setq liste_blocke (list obj_na punktx punkty 0.0))
(princ liste_blocke)
        )
  )
)

---

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

---

Hallo Jungspunt,
zuerst einmal solltest Du die Blöcke, die Du untersuchen willst in einer Liste zusammensammeln. Mit

Code:

---

(setq liste_blocke (list obj_na punktx punkty 0.0))

---

überschreibst Du immer wieder die Variable liste-blocke. für's Sammeln musst Du "CONS" verwenden:

Code:

---

(setq liste_blocke (cons (list obj_na punktx punkty 0.0) liste_blocke))

---

Dann schau Dir mal die Funktion "vl-sort" an. Die sortiert Listen entsprechend einer Vergleichsfunktion. z.B.

Code:

---

(vl-sort '(3 4 2 5) '< )

---

ergibt (2 3 4 5)
In Deinem konkreten Fall musst Du aber eine lambda-Funktion zum Vergleich heranziehen, da Du das 2. bzw. 3. Element zum Sortieren verwenden willst:

Code:

---

(setq liste_blocke (vl-sort liste_blocke (function (lambda (x y) (< (cadr x) (cadr y))))))

---

sortiert z.B. nach x-Koordinate aufsteigend.
Und jetzt als Bonus alles Zusammen:

Code:

---

(if (setq auswahl (ssget '((0 . "INSERT"))))
  (progn
    (setq n 0)
    (repeat (sslength auswahl)
      (setq obj_na (ssname auswahl n)
            n      (+ n 1)
      )
      (setq obj_data (entget obj_na))
      (setq obj_punkt (cdr (assoc 10 obj_data)))

      (setq punktx (car obj_punkt))
      (setq punkty (cadr obj_punkt))
      (setq liste_blocke (cons (list obj_na punktx punkty 0.0) liste_blocke))
    )
    (setq liste_blocke (vl-sort liste_blocke (function (lambda (x y) (< (cadr x) (cadr y))))))
    (princ liste_blocke)
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

          http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 07. Sep. 2009 editiert.]

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

---

Super
Danke für deine Hilfe.

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