请问如何用脚本或者在lisp程序中炸开所有块

cciyf

explode命令再脚本或者lisp中不能再用all选择目标，一次只能炸一个。怎么办呀？？？？？？？？？？？？？

alin

(defun c:x-blocks(/ ss idx count en)
  (setq ss (ssget "x" '((0 . "INSERT"))))
  (setq idx -1 count 0)
  (if ss
   (while (<= (setq idx (1+ idx)) (1- (sslength ss)))
     (setq en (ssname ss idx))
     (if (not (assoc 1 (tblsearch "BLOCK"
                         (cdr (assoc 2 (entget en))))))
         (progn
           (command "explode" en)
           (setq count (1+ count))
         )
     );endif
   )
  )
  (princ (strcat "\n" (itoa count)
                 " block(s) exploded."))
  (princ)
)