[求助]：关于选择集问题

winabcd

我用下列语句建立了一个选择集，
Dim adCurSelSet As AcadSelectionSet
Dim fType(0 To 1) As Integer, fData(0 To 1)

Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
If Err Then Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
fType(0) = 0: fData(0) = "TEXT"
   fType(1) = 8: fData(1) = "*"
   adCurSelSet.Clear
   adCurSelSet.Select acSelectionSetAll, , , fType, fData
在我第一次运行时没问题，但我退出以后，再次运行时，就出现了问题，说我“命名的选择集已经存在”，
请问如何判别一个命名的选择集是否存在？如已存在，又如何重新构造该选择集？

另：请问如何在一个VBA工程结束时，自动从内存中卸载该工程？

爱与和平

我也遇到过我的解决办法是

1. 
   
2. Set sset = ThisDrawing.SelectionSets.Add("SS1")
   
3. If Err <> 0 Then
   
4. Set sset = ThisDrawing.SelectionSets.Item("SS1")
   
5. sset.Clear
   
6. End If
   

复制代码

或者在结束的时候sset.delete

qinchao_qc

那么
              If Err Then Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
这句话怎么不起作用？

爱与和平

照理说这句应该也触发错误，导致调试的时候就通不过，为什么这里能通过，还是对vba不了解丫，等待高手解答吧，

雪山飞狐(lzh)

选择集的固定写法：
on error resume next
ThisDrawing.SelectionSets("adcurselset").delete
Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")

dashan

那是因为没有
On Error Resume Next

最初由 qinchao_qc 发布
[B]那么
              If Err Then Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
这句话怎么不起作用？ [/B]

选择集用完以后就清空并删除应该养成习惯，创建之前最好再检查一下有没有同名的选择集

winabcd

我用这样的语句可以通过，
On Error Resume Next
   If Not IsNull(ThisDrawing.SelectionSets.Item("adcurselset")) Then
      Set adCurSelSet = ThisDrawing.SelectionSets.Item("adcurselset")
      adCurSelSet.Delete
   End If
   Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
   
5楼的方法可能是可以的，但我没试过，
谢谢各位指教

雪山飞狐(lzh)

5楼的方法是选择集的通常用法,推荐使用

qiaqiadeng

提供一个更好的办法，累似的，自己琢磨一下改动一下就可：
    Dim sel1 As AcadSelectionSet, sela As AcadSelectionSet
    Dim i As Integer
    Dim num As Integer
    Dim handl As String '句柄
    Dim xx As AcadObject '参照对象
    Dim gpcode(1) As Integer, datavalue(1) As Variant '组码和组码值
    Dim objtype, objlayer, objcolor, objlinetype, objblockname, objtxt, objtxtstyle, objdimstyle As Variant
    Dim x As AcadMText
    Me.Hide
    num = ThisDrawing.SelectionSets.Count
    For i = 0 To num - 1
        Set sel1 = ThisDrawing.SelectionSets.Item(i)
        If sel1.Name = "sel1" Then
            sel1.Delete
        End If
    Next i
    num = ThisDrawing.SelectionSets.Count
    For i = 0 To num - 1
        Set sela = ThisDrawing.SelectionSets.Item(i)
        If sela.Name = "sela" Then
            sela.Delete
        End If
    Next i

gdzhou

没看出好在那里，请教

lhx2000

Dim ssetObj As AcadSelectionSet
'    On Error Resume Next
    Set ssetObj = AcadDoc.SelectionSets("Test") '创建选择集
    If Err Then
        Err.Clear
        Set ssetObj = AcadDoc.SelectionSets.Add("Test")
    End If
    ssetObj.Clear

macula55

Dim adCurSelSet As AcadSelectionSet
Dim fType(0 To 1) As Integer, fData(0 To 1)

On Error Resume Next
Set adCurSelSet = ThisDrawing.SelectionSets.Add("adcurselset")
If Err Then Set adCurSelSet = ThisDrawing.SelectionSets.Item("adcurselset")
err.clear
fType(0) = 0: fData(0) = "TEXT"
fType(1) = 8: fData(1) = "*"
adCurSelSet.Clear
adCurSelSet.Select acSelectionSetAll, , , fType, fData

npzh585

5楼的方法是选择集的通常用法！我都是这样用咯！