将某图层上所有实体删除

lyq2004

将某图层上所有实体删除，将该层一次端掉

phoenixdjq

你的程序有问题呀，不能用

下面是我做的程序:

由于匆忙，没有考虑当前层的问题

(defun c:jj()
(setq ceng (getstring "\n 请输入层名:"))
(setq d (getvar "clayer"))
(if (= d ceng)
(alert "你要删除的层是当前层,只能删除此层实体，无法删除此层")
)
(setq ss (ssget (list (cons 8 ceng ))))
(command "erase" ss "")
(command "purge" "la" ceng "" "y")
)

潘阳科

过程看不懂，呵呵