我用一下方法建立了一个选择集，但是，怎样将符合条件的文本添加到选择集中呢？（比如要将“第＊”添加到选择集）
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
但是选择集却是空集，请教高手！
置顶卡
