Hi sashk -
Sorry I didn't get a chance to reply during work hours.
I think this may get you moving in the right direction...
Please pardon anything which appears to be 'talking down' to you. To be honest,
I'm no lisp guru either, but I do know how to get some things done; not always
in the cleanest most elegant way, but it does work. Which is really all we're
after.
(defun c:xpl ( / sset ssl n a b c d safelist)
(setq safelist (list "DIMENSION" "HATCH"))
;;; you can add to this list if you want to protect blocks, etc.
(princ "\nSelect entities to explode - some entity types are protected:")
(setq sset (ssget))
(setq ssl (sslength sset))
(setq n ssl)
(setq counter 0)
(repeat ssl
(setq n (1- n))
(setq a (ssname sset n))
(setq b (entget a))
(setq c (assoc 0 b))
(setq d (cdr c))
(if (not (member d safelist))
(progn
(setq counter (1+ counter))
(command "explode" a "")
)
)
)
(setq protected (- ssl counter))
(princ counter)
(princ " entities exploded, ")
(princ protected)
(princ " entities protected.")
(princ)
)
I tried exploding all unprotected entities en masse, but I believe the 'multiple
explode' command is a routine of its own, not a true basic Acad command (I may
be wrong about this, but that's the way it acts). So instead I do them one at a
time, and you can see watch each explosion as it's executed. Back in the days of
Acad 10, there was no 'multiple explode'. One had to create a routine similar to
this.
I hope it's helpful, or at least gets you (or others) thinking in creative ways.
-doug
ps - I think all the other chat about office procedures and drawing standards
belongs in another discussion group, perhaps cadmanager.
"sashk" wrote in message
news:11123124.1088198954468.JavaMail.jive@jiveforum2.autodesk.com...
> maybe to make it easier, if it is a hatch, dimension, or attribute, alert "X
enities not allowed to be exploded"
> and the rest of the objects, such as plines, blocks, etc. can then be
exploded. how do you write one of those