[VBA程序]：请教vba删除cad中整层对象的程序！

yuhuixp

请教，想用vba编写一个删除cad中一些层的所有对象的程序，琢磨了很久都写不出来，哪位高手能教我，多谢

lgf727

Public Function DelAll(ByVal LayerName As String)
Dim MyEntity As AcadEntity

For Each MyEntity In ThisDrawing.ModelSpace
    If MyEntity.Layer = LayerName Then MyEntity.Delete
Next

End Function

雪山飞狐(lzh)

Sub DelAll(ByVal LayerName As String)
On Error Resume Next
    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("Test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("Test")
    Dim ft(0) As Integer, fd(0)
    ft(0) = 8: fd(0) = LayerName
    ss.Select acSelectionSetAll, , , ft, fd
    ss.Erase
End Sub