---

Dyn.txt

Hallo

Ist es möglich in einer Zeichnung (Zeichnung in der Beilge) die ein
dynamicher Block (Namen: L-K-ZUL) mehrmals vorhanden ist,
der ausgewählten Dyn. Block die Layer zu ändern?

Beilage: Dyn.txt >> Dyn.dwg

Gruss Nano

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

---

Ist es möglich in einer Zeichnung (Zeichnung in der Beilge) die ein
dynamicher Block (Namen: L-K-ZUL) mehrmals vorhanden ist,
der ausgewählten Dyn. Block die Layer zu ändern?

Gruss Nano

Lisp v. Forum: änder alle Blöcke.

(DEFUN C:AL  (/ Jblock blk blkdaten)
(setq Jblock (tblnext "BLOCK" t))
(while Jblock (setq blk (tblobjname "BLOCK" (cdr (assoc 2 Jblock))))
(while (setq blk (entnext blk))
(if (= (cdr (assoc 8 (entget blk))) "L_ZUL")
(entmod (AL1 (entget blk)))
)
)
(setq Jblock (tblnext "BLOCK"))
)
(command "_.regen")
)

(DEFUN AL1  (blkdaten / liste)
(setq liste (subst (cons 8 "L_AUL") (assoc 8 blkdaten) blkdaten))
(if (assoc 62 liste)
(subst (cons 62 256) (assoc 62 liste) liste)
(append liste (list (cons 62 256))))
)

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