autolisp 如何删除图层

1、被块定义参照的图层，如a层含有一个图块，块内某条线属于b层；

1、名字为 DEFPOINTS 的特殊图层（为某个标注样式所用）。程序清单如下：

2、(defun c:de(/ et ln lay_name ss li)(princ "删除指定图层内的实体")(setq li (entsel"请选择指定图层内的任何一个实体<回车直接输入层名>:"))

3、(if li     (progn ;选择一个实体         (setq et (entget(nth 0 li)))         (setq lay_name (cdr (assoc 8 et)))    

4、  (progn ;直接输入层名，理想的办法是采用列表框选择，大家可以自己试试。         (princ"输入层名:")         (while (= ln nil)                 (setq lay_name (getstring))                (setq ln (cdr (assoc 2 (tblnext "layer" t))))                (while (and ln (/= ln "%") )                        (if (/= ln lay_name)                           (setq ln (cdr (assoc 2 (tblnext "layer"))))                           (setq ln "%")                       

5、    ;如指定的图层名已存在，则设“%”标志                        )                )               (if (/= ln "%") ;错误处理                   (princ"指定的图层不存在，请重新输入:")                )         )     ) )

6、(setq ss (ssget "X"(list(cons 8 lay_name)))) ;构造选择集(COMMAND "-layer" "u" lay_name "")           ;图层解锁(COMMAND "ERASE" ss "")                      ;清除所有实体(princ "清除完毕!")(princ));程序结束