社区 › VB › 实在没有办法，重新提问。

alway489 发表于 2006-4-21 23:50:00

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

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

雪山飞狐_lzh 发表于 2006-4-21 23:55:00

/object/acad2004/idh_select.htm

freezl 发表于 2006-4-23 20:22:00

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

查看完整版本: 实在没有办法，重新提问。