---

Ich habe eine Liste in der Form und möchte sie in Einzeillisten aufsplitten entsprechend dem erstem item

(("ASFALT" . <Entity name:...> )("ASFALT" . <Entity name:...> )("ASFALT" . <Entity name:...> )("ASFALT" . <Entity name:...> )("SCHOTTER" . <Entity name:...> )("SCHOTTER" . <Entity name:...> )("SCHOTTER" . <Entity name:...> )("SCHOTTER" . <Entity name:...> )("SCHOTTER" . <Entity name:...> )("KIES" . <Entity name:...> )("KIES" . <Entity name:...> )("KIES" . <Entity name:...> )("KIES" . <Entity name:...> ))

anschliessend möchte ich einen internen Selectionset aufbauen, der mir entsprechend der neuen 3 Listen "ASFALT" + "SCHOTTER" + "KIES"
getrennt wählt.
Wie muss ich vorgehen oder gibt es da schon was fertiges

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

es werden also 3 selectionsets gefordert!

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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

---

(setq KEY "KIES")

(setq L1(vl-remove-if-not
        '(lambda(X)(or(and(=(type KEY)'Str)
                          (=(type (car X))'Str)
                          (eq(strcase(car X))(strcase KEY))
                        )   
                        (eq (car X) KEY)           
                    ) 
          )
          LISTE       
        )
)

(setq AWS1 (ssadd))
(mapcar '(Lambda(x)  (ssadd X AWS1))L1)

....

????

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Fantastisch, funktioniert bestens - Danke!

------------------
Gruss Dirk
http://cadplayerlounge.blogspot.se

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