绘图过程中经常会碰到这种情况：某个图层已被“清空”但却无法将其删除，究竟是什么回事其实，图层中还可能含有不可见的实体例如，使用mtext命令输入一连串空格即产生一个不可见实体。在实际绘图中我们当然不会特意去建立这样的实体，但无意的操作或者ACAD应用程序的运行都有可能产生“副產品”要删除这些不可见实体，如果单靠现成的ACAD命令是难以完成的必须借助程序来进行，下面的程序能够删除指定图层内的一切简单實体从而能让用户进一步使用layer或purge命令来删除图层。

需要注意的是个别图层即便使用下列程序处理后,仍可能关联其他对象（注意，对象嘚概念较实体广得多包括标注样式等非实体对象）而不能被删除，除非指定的图层不再关联图块或者不含有任何用户定义的标注样式這些图层是：

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

2.名字为 DEFPOINTS 的特殊图层（为某个标注样式所用）。

(progn ;直接输入层名理想的办法是采用列表框选择，大家可以自己试试

;如指定的图层名已存在，则设“%”标志

(princ'指定的图层不存在请重新输入:')