---

N'Abend,

Folgendes funktioniert, solange die Zeichenkette "VZ 237" gesucht wird.
Suche ich nach allen Zeichenketten "VZ *" ergibt die Suche nil.
Wie komme an an alle "VZ *" ran?
Kann mir hier wcmatch weiterhelfen oder gibt es noch eine einfachere Methode?

(defun attribloe (/ AWS INSERT INDEX ATTDATA)
  (if (setq AWS (ssget "_X" (list '(0 . "INSERT")'(66 . 1))))
    (progn
      (setq INDEX -1)
      (repeat (sslength AWS)
        (setq INSERT(ssname AWS (setq INDEX (1+ INDEX))))
        (setq ATTDATA(entget(entnext INSERT)))
        (while (and(=(cdr(assoc 0 ATTDATA)) "ATTRIB")
  (=(cdr(assoc 1 ATTDATA)) "VZ 237"))             
                  ; Wert "VZ 237" wird bei Verwendung von Platzhalter "VZ *" nicht entfernt
  (entmod(subst(cons 1 "")(assoc 1 ATTDATA )ATTDATA))
          (setq ATTDATA(entget(entnext(cdr(assoc -1 ATTDATA)))))
        )
      ) 
    )
  )
)

Vielen Dank

Martin

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

---

Zitat:

---

  (=(cdr(assoc 1 ATTDATA)) "VZ 237"))   

---

Gleich ist eben Gleich und nicht Teil

verwende stattdessen wcmatch

Ich habe ein Tool auf meiner Seite das Suchtext heißt sieh dir das mal an

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Besten Dank @ CADWiesel

(defun attribloe (/ AWS INSERT INDEX ATTDATA wc)
  (if (setq AWS (ssget "_X" (list '(0 . "INSERT")'(66 . 1))))
    (progn
      (setq INDEX -1)
      (repeat (sslength AWS)
        (setq INSERT(ssname AWS (setq INDEX (1+ INDEX))))
        (setq ATTDATA(entget(entnext INSERT)))
        (setq wc(cdr(assoc 1 ATTDATA)))
          (while (and(=(cdr(assoc 0 ATTDATA)) "ATTRIB")
            (or
    (wcmatch (cdr(assoc 1 ATTDATA)) "VZ*")
            (wcmatch (cdr(assoc 1 ATTDATA)) "RVZ*")))
          (entmod(subst(cons 1 "")(assoc 1 ATTDATA )ATTDATA))
          (setq ATTDATA(entget(entnext(cdr(assoc -1 ATTDATA)))))
        )
      )
    )
    )
  )

So klappt es wunderbar und ich kann zugleich noch andere Abfragen damit abarbeiten.

Gruß, Martin

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