Soll der oberste Block dabei erhalten bleiben ? Oder einfach nur alle Blockreferenzen aufgelöst werden. Fürs 2. gibts auf alle Fälle was hier im Forum.
rudimentär so
(defun C:Explodeallblockrefs (/ AWS)
(while (setq AWS(ssget "_x" (list '(0 . "INSERT")(cons 410 (getvar "CTAB")))))
(setq NR -1)
(repeat (sslength AWS)
(command "_explode" (ssname AWS(setq NR (1+ NR))))
)
)
)
------------------
- 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