最简单的情况 图层不是当前图层，且该层上一无所有，无实体、无引用、无插入，无定义点，不是0层
Dim laydel As AcadLayer
Dim alllayer As AcadLayers
Set alllayer = ThisDrawing.Layers
Set laydel = alllayer.Item("图层1")
laydel.Delete
如果存在对象
那就先把该层上的对象删了，然后在删除层。如果是当前层，则将重新设置当前层为0层，然后再删除，这个功能可以做得很复杂。使层和该层上所有对象都被DEL掉。
置顶卡
