;
;
;..........................MULTIPLE EXPLODE...................................
;
;
(DEFUN C:XX(/ SS EN ED AS)
(SETQ CM (GETVAR "CMDECHO"))
(SETVAR "CMDECHO" 0)
(PROMPT "\NSELECT OBJECTS TO EXPLODE...")
(SETQ SS (SSGET))
(WHILE (> (SSLENGTH SS)0)
(PROGN
(SETQ EN (SSNAME SS 0))
(SETQ ED (ENTGET EN))
(SETQ AS (CDR (ASSOC '0 ED)))
(IF (OR
(= AS "INSERT") (= AS "POLYLINE"))
(COMMAND "EXPLODE" EN))
(SSDEL EN SS)))
(SETVAR "CMDECHO" CM)
(PRIN1))
