怎么提取所有块到一个图层内?

wei209

对不起,我是刚接触LISP的新手,你能给加一下吗?

alin

(defun c:kkk (/ cnt idx)
  (setvar "cmdecho" 0)
  (setq cnt 0)
  (while
    (setq ss2 (ssget "x" '((0 . "insert"))))
     (setq cnt (+ (sslength ss2) cnt))
     (setq idx 0)
     (while (<= idx (sslength ss2))
       (command "_.explode" (ssname ss2 idx))
       (setq idx (1+ idx))
     )
  )
  (command "zoom" "e")

  (alert (strcat "图形内共有" (itoa cnt) "个图块炸碎完成"))
  (princ)
)

wei209

问题解决,谢谢ALIN及各位坛友!!!