关于选择集的删除问题???

taoboq

(1)

Private Sub UserForm_Initialize()
'清空选择集合中已有的选择集。避免重名
   Dim objSset As AcadSelectionSet
   
   Dim Intstep As Integer
  
   If ThisDrawing.SelectionSets.count <> 0 Then
       For Each objSset In ThisDrawing.SelectionSets
            objSset.Delete
          
        Next objSset
   
   End If
   
End Sub

(2)
Private Sub UserForm_Initialize()
'清空选择集合中已有的选择集。避免重名
   Dim objSset As AcadSelectionSet
   
   Dim Intstep As Integer
    If ThisDrawing.SelectionSets.count <> 0 Then
        For Intstep = 0 To (ThisDrawing.SelectionSets.count - 1)
            Set objSset = ThisDrawing.SelectionSets.Item(Intstep)
            objSset.Delete
       Next
      
   End If
   
End Sub

我用的事AutoCAD2004

当我用第一种方法的时候,如果有选择集存在(即selectionsets.count<>0)就会只删除选择集(selectionset)到剩余最后一个,然后再往选择集(selectionsets)内添加重名的选择集(selectionset)时,系统就会报错,而且关掉了autocad的界面.

用第二种方法时就一切ok

哪位高手指点一下是为什么???

worker

CAD的帮助文件中有这样的例子,用的不是你这样的方法,它的方法能具体的删除指定名字的选择集.

Dim SSblk As AcadSelectionSet

 On Error Resume Next
 ' Delete the selection set if it exists
 If Not IsNull(ThisDrawing.SelectionSets.Item("blk")) Then
    Set SSblk = ThisDrawing.SelectionSets.Item("blk")
    SSblk.Delete
 End If

Set SSblk = ThisDrawing.SelectionSets.Add("blk")

taoboq

我想要的是删除选择集，在不知道该选择集的名字的情况下，删除掉它，然后再建立一个新的选择集。