---

Guten morgen!

Das nächste Problem hält mich auf!
Ich brauche einen Tipp zum grundsätzlichen herangehen an folgende Sache:

Ich habe eine Lister aller Teile in einer Baugruppe

Code:

---

(setf AlleTeileGlied1 (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :select :recursive :in_assembly LayoutBgr)))

---

...nun wird diese Baugruppe inhaltlich erweitert (es kommen Teile hinzu). Ich lese nun wieder eine Liste aller Teile dieser Baugruppe aus:

Code:

---

(setf AlleTeileGlied12 (sd-call-cmds (get_selection :focus_type *sd-part-seltype* :select :recursive :in_assembly LayoutBgr)))

---

Wie komme ich nun zu einer Liste in der nur die neu hinzugekommenen Teile drinstehen       

Ich habe folgendes versucht:

Zitat:

---

          (setq AlleTeileGlied2 (copy-seq AlleTeileGlied12))
          (dolist (Teil AlleTeileGlied1)
            (setq AlleTeileGlied2 (remove Teil AlleTeileGlied2 ))
          );;dolist

---

...irgendwie passiert hier gar nichts. Welche Möglichkeiten gibt es um eine Liste "AlleTeileGlied12" um den Inhalt einer 2. Liste "AlleTeileGlied1" zu erleichtern??

------------------
...viele Grüße
Stephan

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

---

http://jtra.cz/stuff/lisp/sclr/set-difference.html

(setq AlleTeileGlied12 (set-difference AlleTeileGlied12 AlleTeileGlied1))
oder
(nset-difference AlleTeileGlied12 AlleTeileGlied1)

nset-difference ist also die destruktive Version von set-difference. Die nähere Definition findest du im Hyperspec

(display (set-difference '(A B C D E F) '(A C D))) => (B E F)

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

[Diese Nachricht wurde von Patrick Weber am 27. Jul. 2012 editiert.]

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

---

Hallo Patrick,

leider haut das nicht hin! Dein Beispiel

Code:

---

(display (set-difference '(A B C D E F) '(A C D))) => (B E F)

---

tut wie erwartet.

Code:

---

(setq AlleTeileGlied12 (set-difference AlleTeileGlied12 AlleTeileGlied1))
oder
(nset-difference AlleTeileGlied12 AlleTeileGlied1)

---

...hier tut sich bei beiden Varianten gar nix???

------------------
...viele Grüße
Stephan

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

---

Ich habe zur Zeit nix, womit ich das testen könnte. Vielleicht fehlt nur ein Testkriterium?

(setq AlleTeileGlied12 (set-difference AlleTeileGlied12 AlleTeileGlied1 :test #'equal))

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

[Diese Nachricht wurde von Patrick Weber am 27. Jul. 2012 editiert.]

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

---

...folgendes hat nun geklappt:

Code:

---

        (setq  AlleTeileGlied2 (set-difference AlleTeileGlied12 AlleTeileGlied1 :test #'equal))

---

Herzlichen Dankf für die Unterstützung     

------------------
...viele Grüße
Stephan

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