求助：向选择集添加元素问题

liuyang4740

我用一下方法建立了一个选择集，但是，怎样将符合条件的文本添加到选择集中呢？（比如要将“第＊”添加到选择集）

    Dim SsetObj As AcadSelectionSet
    For i = 0 To ThisDrawing.SelectionSets.Count - 1
        Set SsetObj = ThisDrawing.SelectionSets.Item(i)
        If SsetObj.Name = "au100" Then SsetObj.Delete
    Next i
        Set SsetObj = ThisDrawing.SelectionSets.Add(SsetName)

    For Each objSel In ThisDrawing.ModelSpace
    If objSel.ObjectName = "AcDbText" Then
    If objSel.TextString Like "第*" Then
     sset.add.objSel
但是选择集却是空集，请教高手！
　

liuyang4740

这个问题困惑我好久了，大家帮忙解决一下了，多谢了！