---

Hallo Community!

Habe eine Lisp- Routine geschrieben, aber ACad sagt immer das er kein Objekt anwählen kann.

Code:

---

(if (and (setq element (car (entsel "\Bitte Linie wählen: ")))
        (setq list (entget element))
        (cond
              (progn
                  (wcmatch (cdr (assoc 0 list)) "*POLYLINIE")
                  (wcmatch (cdr (assoc 6 list)) "STRICHPUNKT")
                  (wcmatch (cdr (assoc 8 list)) "Leitung*")
              )
              (progn
                  (wcmatch (cdr (assoc 0 list)) "*POLYLINIE")
                  (wcmatch (cdr (assoc 8 list)) "*Rohr")
              )
          )
    )
..........
)

---

Ich möchte Polylinien nur mit folgenden Eigenschaften selektieren können.
Polylinien auf dem Layer: "Leitung*" gibt es auch mit anderen Linientypen, daher die Teilung.

Gibt es eine bessere Lösung oder eine Einfacheren?
Habe statt Progn auch mit OR und AND herumgespielt, aber es bleibt immer beim gleichen Ergebnis.

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

Christian

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

---

Hallo Christian,

"list" ist ein geschütztes Symbol verwende lieber "liste" oder vielleicht besser "elementdaten", da weis man auch gleich für was das sein soll.

Ich hab da mal was geändert, probiers mal aus.

Code:

---

(if (and (setq element (car (entsel "\Bitte Linie wählen: ")))
(setq elementdaten (entget element))
(or
  (and
    (wcmatch (cdr (assoc 0 elementdaten)) "*POLYLINIE")
    (wcmatch (cdr (assoc 6 elementdaten)) "STRICHPUNKT")
    (wcmatch (cdr (assoc 8 elementdaten)) "Leitung*")
  )
  (and
    (wcmatch (cdr (assoc 0 elementdaten)) "*POLYLINIE")
    (wcmatch (cdr (assoc 8 elementdaten)) "*Rohr")
  )
)
    )
  ....................
)

---

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

Gruß
Andreas

http://kraus-cad.de

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

---

Leider funktioniert auch nicht.

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

Christian

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

---

1. WCMATCH vergleich, da solltest du mit STRCASE dafür Sorgen das GROSSklein Schreibung vereinheitlicht wird,
   da es keinen Layer LeiTUNG und Layer lEITung gleichzeitig gibt, kannst du mit strcase zB. alles Großschreiben vor dem Vergleich.

(wcmatch (strcase(cdr(assoc 8 ...))) "LEITUNG")

2. ein Objekttyp "LWPOLYLINIE" oder "POLYLINIE" wirst du in Acad nicht antreffen..

3. Wenn kein Linientyp ungleich VonLayer vergeben ist, wird dein Prog in einen Fehler laufen - weil kein DXF-Gruppencode 6 vorhanden ist !

(if (assoc 6 ..)dann mach

Oder du machst das ganze gleich mit SSGET und entsprechender Filterliste

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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