---

Tach Leute,

ich versuche die Werte eines attributierten Block zu ändern und will den Block bis zu Ende durchlaufen. Den Block wähle ich per Mausklick und springe dann weiter mit entnext. Das Ende versuche ich mit einer while-Schleife zu finden. Jedoch laufe ich jedesmal in einer Endlosschleife weil dieser Code nicht erkannt wird.

(while (/= "SEQEND" (cdr (assoc 0 (entget ent1))))
  );while

Gruss bu

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

---

guck dir mal diesen Code an

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

---

hallo bu,
vielleicht hilft Dir folgender Code weiter.

Code:

---

(defun c:test  (/ sub block)
  (if (setq block (car (entsel "Bitte Block picken:")))
    (progn
      (setq sub (entnext block))
      (while (and sub (/= (cdr (assoc 0 (entget sub))) "SEQEND"))
(if (= (cdr (assoc 0 (entget sub))) "ATTRIB")
  (entmod (subst (cons 1 "neuer Wert")
(assoc 1 (entget sub))
(entget sub)))
  )
(setq sub (entnext sub))
)
      (entupd block))
    (alert "Es wurde kein Block gewählt."))
  (princ)
  )

---

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

Jörn

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