已解答

Andyhon

有一条便道谨供参考

spp_wall

2. (defun c:tt ()
   
3. (setq ss(ssget "x" '( (8 . "2层,3层"))));自己添加其他图层
   
4.    (command "_.ERASE" ss "")
   
5. (princ)
   
6. )

(defun c:tt ()<br /> (setq ss(ssget "x" '( (8 . "2层,3层"))));自己添加其他图层<br />    (command "_.ERASE" ss "")<br /> (princ)<br /> )

yjc532

7楼的方法已经不错了，但是还有一个缺点，删除了图面上的信息而图层管理器里面图层还是存在。

另外最简单的办法是，打开图层管理器，选中所需要删除的图层，ctrl键可以同时选取删除很多图层。但是

无法删除的图层有
图层0和图层 DEFPOINTS
当前图层
包含对象的图层
依赖外部参照的图层

CAD83

很好,方法已经不错