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