为何报错“选择集名称无效”

awei

下面的代码 For i = 0 To ThisDrawing.SelectionSets.Count - 1
If ThisDrawing.SelectionSets(i).Name = NzdSSetHead + CStr(CurrentNzdID) Then
ThisDrawing.SelectionSets(i).Erase
Exit For
End If
Next 在条件满足执行Erase时有时报“选择集名称无效”，为什么，或者有哪些可能的情况呢 大多数不报，报得时候关闭重新打开执行代码，就没事了，

mccad

倒过来删就没事。
For i =ThisDrawing.SelectionSets.Count - 1 To 0