社区 › VBA/VB/ActiveX/API 编程技术 › 怎样用VBA进行图层删除？

indal 发表于 2002-10-15 08:43:00

怎样用VBA进行图层删除？

怎样用VBA进行图层删除？

肖宏海 发表于 2002-10-15 15:52:00

希望有用！

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

indal 发表于 2002-10-15 21:17:00

层上有块，而块又被其它层用，能不能通过改块的属性来删呢？

层上有块，而块又被其它层用，能不能通过改块的属性来删呢？

肖宏海 发表于 2002-10-17 15:16:00

块没有层属性，修改块所包含的实体的层属性。

indal 发表于 2002-10-17 18:22:00

谢谢！

查看完整版本: 怎样用VBA进行图层删除？