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

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

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

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

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

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

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

发表回复

精选推荐