选择集的问题，程序解释

yingxunxue

Dim number As Integer
Dim ObjSelectionSet As AcadSelectionSet
i = 0

'获取当前图形中选择集的个数
number = ThisDrawing.SelectionSets.Count

'删除当前图形中所有的选择集
While i < number
Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)
ObjSelectionSet.Delete
i = i + 1
Wend
红色部分的代码能帮我解释一下吗？特别是Item(0)是什么意思
While ObjSelectionSet.Item(0).ObjectName <> "AcDbLine"中AcDbLine是什么意思，在ＶＢＡ帮助中没有

zzg4028061

"Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)",指选择集集合中的第一项 AcDBLine,是直线类型,它对应IAcadLine,这个帮助里有

yingxunxue

"Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(0)",可以 改为"Set ObjSelectionSet = ThisDrawing.SelectionSets.Item(i)",吗?好象也应该删除所有的选择集

雪山飞狐_lzh

不行，删除第一个选择集，第二个选择集就变成第一个了，只用不停的删除第一个才能达到目的，用ThisDrawing.SelectionSets.Item(i)，删除到一半会报错

nxy_918

楼上说的极是，还是这样好 Do While ThisDrawing.SelectionSets.Count <> 0
ThisDrawing.SelectionSets.Item(0).Delete
Loop

zzg4028061

这样，代码的可读性不太好


Dim objSST as acadSelectSet


for each objSSt in Thisdrawing.SelectionSets


                 objSST.delete


next

clement

楼上的写法好.

whyer

我记得我在编写选择集代码时候，好像必须先建立一个选择集，