2008年8月18日 星期一

刪除所有block

;刪除所有block
(defun C:ea (/ ss)
(if (= (setq ss (ssget "x" '((0 . "INSERT")))) nil)
(princ "\n沒有物件.")
(command "erase" ss "")
)
(princ)
)



;其它應用
;1.選取name圖層中的所有block
;(setq ss (ssget "x" '((0 . "INSERT")(8 . "NAME"))))

;2.選取970815圖塊
;(setq ss (ssget "x" (list (cons 0 "INSERT")(cons 2 "970815"))))

Search Google

Google

熱門文章