---

Hallo Forum

Ich möchte eine Punktliste so sortieren, dass gleiche Punkte
ausgefiltert werden, also keine Punkte mehr doppelt in der Liste
erscheinen.
Läßt sich dieses mit vl-sort bewerkstelligen?

Wer weiß einen Rat?

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

---

kleiner "Denkanstoss"

Zitat:

---

(defun STD-REMOVE-DUPLICATES (lst / ele new)
  (setq new nil)
  (foreach ele lst
    (if (not (member ele new))
      (setq new (cons ele new))))
  (reverse new))

---

------------------
(entmake (entget (entlast))) | Die Pro-Version auf Anfrage erhältlich.

          "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File

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

---

Hallo Proxy,

erst einmal Danke für deine Hilfe.
Die Sache mit der Listensortierung funktioniert jetzt
einwandfrei.
Ich hatte fast die gleiche Lösungsidee, nur habe ich statt
'member' die Funktion 'equal' verwendet, die nur zufällig zu einem
richtigen Ergebnis führte!

mfg
Hans-Leo Müller

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

---

Hallo Hans Leo,

ich denke, dass du beim Vergleich von Koordinaten nicht auf ein (equal ..) verzichten kannst.
Denn weicht deine Koordinate in der 16. Stelle nach dem Komma ab, dann liefert die (member ..) auch nicht das Ergebnis, welches du möchtest.
Deshalb ist (member ..) für deine Aufgabenstellung ungeeignet und der ursprüngliche von dir angedachte Weg mittels (equal ..) genauer zu untersuchen, weshalb es nicht das gewünschte Ergebnis gebracht hat.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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