实在没有办法，重新提问。

alway489

昨天问了个问题就是如何清除一个图层上的所有东西，虽然我也知道用选择集选中图层上的所有对象，然后删除。但是发现不管用哪个属性，都不能自动的删除，而是要手动的去选择进结果集，然后才行。

各位有没有什么好招可以实现自动啊。

实在没有办法了。

雪山飞狐_lzh

[WEB]/object/acad2004/idh_select.htm[/WEB]

freezl

Sub Ch4_AddToASelectionSet()
    ' 创建新的选择集
    Dim sset As AcadSelectionSet
    Set sset = ThisDrawing.SelectionSets.Add("SS1")
    '定义过滤器类型为图层
    Dim gpcode(0) As Integer
    gpcode(0) = 8
    '图层名为0图层
    Dim datavalue(0) As Variant
    datavalue(0) = 0
    '选择0图层上所有的实体，并高亮显示
    sset.Select acSelectionSetAll, , , gpcode, datavalue
    sset.Highlight (True)
End Sub