---

Hallo zusammen,
folgende Konstruktion:

Code:

---

(setq color_list nil)
    (vlax-for layer (vla-get-layers
      (vla-get-activedocument (vlax-get-acad-object))
    )
      (setq color_list (cons (vla-get-color layer) color_list))
    )

---

liefert mir z.B. eine Auflistung der Farben aller Layer (ohne Rücksicht auf Truecolor usw. aber darum gehts ja auch grade nicht)

Meine Frage:
geht das auch einfacher und eleganter ???

Ich glaube ich hatte mal sowas gesehen, finds aber nicht wieder  und komm auch selbst nicht drauf 

Also eine Liste erstellen mit irgendwelchen Daten von allen Layern, Blöcken, Textstilen, usw. (egal was) nur eben nicht mit vlax-for und setq, sondern irgendwas dass mir die Liste als Rückgabewert liefert.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

(vlax-map-collection (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))'(lambda(X)(setq COLORS (cons (vla-get-color X)COLORS))))

------------------
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

---

Hmmm...

vlax-for layer wird ersetzt durch vlax-map-collection

und statt (setq color_list (cons (vla-get-color layer) color_list)) hab ich genau das Selbe nur in einem labda verpackt.

Danke Thomas aber das ist nicht ganz das was ich mir erhofft habe.

Ich dachte eher an etwas wie:

(setq liste (funktionsname todo collection))

ähnlich wie:  (setq liste (mapcar 'car datenliste))

Also ohne das setq welches natürlich unzählige Male aufgerufen wird.

EDIT: hab grade auf Axels Seiten nachgelesen. Das ist wirklich das Selbe. Wenns nix anderes gibt, hak ich das ab.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

[Diese Nachricht wurde von Andreas Kraus am 17. Mrz. 2015 editiert.]

[Diese Nachricht wurde von Andreas Kraus am 17. Mrz. 2015 editiert.]

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

---

Zitat:

---

Original erstellt von Andreas Kraus:

Danke Thomas aber das ist nicht ganz das was ich mir erhofft habe.

Wenns nix anderes gibt, hak ich das ab.

---

Mach das 

------------------
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

---

OK
und noch ein par Us für deine Mühe

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

Hallo
Damit deine Vorgabe klappt

Zitat:

---

ähnlich wie:  (setq liste (mapcar 'car datenliste))

---

müsste man wissen das in deiner Datenliste drin steht. :D :D :D
Aber hier noch ein anderes Beispiel.

Code:

---

(while (setq sw (tblnext "Layer"(not sw)))
  (setq Farbe(cons(getpropertyvalue(tblobjname"Layer"(cdr(assoc 2 sw)))"Color")Farbe))
)

---

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1

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

---

Hallo Wolfgang,
aber auch in der WHILE-Schleife gibt es keine vernünftige Rückgabe und Du bist wieder bei SETQ und CONS.

Habe mich heute zu diesem Thema mal wieder auf Axel's Seiten rumgetrieben und hier noch mal folgendes Zitat zum Thema VLAX-MAP-COLLECTION  -  Wenn Du Funktion eine richtige MAPCAR-Rückgabe hätte, dann wäre es das gewesen, aber so

Zitat:

---

Axel:
Noch einmal mit anderen Worten: (vlax-map-collection) ist zu nichts nütze - das, was diese Funktion macht, erledigt (vlax-for) genauso. Nehmen wir die Funktion (vlax-dump-object) wie im Hilfe-Beispiel:

---

http://www.activex.autolisp.info/collections.html

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Bäume stutzen Youtube

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