---

Hallo,
ich möchte nach zwei Farben selektieren (weiß oder magenta).
'(062 . 7) OR '(062 . 6) geht schon mal nicht.

Wer ist so nett, und ergänzt das.

Für Eure Unterstützung bedanke ich mich im Voraus.

(setq sel
    (ssget "_X"
        (list
            '(000 . "INSERT")
            '(066 . 1)
            '(062 . 7) ;weiß
            (cons 2 blk)
            (if (= 1 (getvar 'cvport))
                (cons 410 (getvar 'ctab))
                '(410 . "Model")
            )
        )
    )
)

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

---

Schau dir mal den Gruppencode -4 an, damit kannst du logische Operatoren in den Filtern einbauen.

Code:

---

(-4 . "<OR")
(62 . 1)
(62 . 2)
(-4 . "OR>")

---

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo vision,

also ich vermute mal, dass Du die sichtbaren Farben IM Block gespeichert selektiren willst?
Wenn Du INSERT, also einen Block in die Auswahl nimmst, dann wird in Deinem Lispbeispiel nach einem gruenen Block gesucht. Egal welche Farben die im Block gespeicherten Elemente haben.

Aber wenn Du dem Block selbst die Farbe gruen zuweist, (sieht man das zwar nicht, da der Container "Block" nur durch seinen Inhalt sichtbar ist)
muesste Dein Lisp aber funktionieren.

Ich wuerde in so einem Fall eher mit Layern arbeiten und nach denen suchen.
Wenn Deine Elemente im Block den Layer "0" und auf BYLAYER stehen, dann werden deren Elemente nach der Layerfarbe angezeigt.

Such mal im Web nach einem Lisp, das Dir den DXF-Code ausliest, das zeigt Dir dann die Elementcodes an.

Gruesse!

------------------
Lieber mit dem Fahrrad zum Strand, als mit dem Mercedes zur Arbeit....

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

---

Hallo,

erhalte folgende Fehlermeldung:

Fehlerhafter Argumenttyp: consp "<OR"

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

---

Code:

---

(setq sel (ssget "_X" (list '(0 . "INSERT") (cons 2 blk) '(66 . 1)'(-4 . "<OR")'(62 . 6)'(62 . 7)'(-4 . "OR>")(cons 410 (getvar 'CTAB)))))

---

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

---

Das passt! 

Vielen Dank

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