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

cciyf · 发表于 2002-10-30 08:34:00

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

alin · 发表于 2002-10-30 10:52:00

(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)
)

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

发表回复

精选推荐