liuyang4740 发表于 2007-10-25 16:22:00

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

我用一下方法建立了一个选择集，但是，怎样将符合条件的文本添加到选择集中呢？（比如要将“第＊”添加到选择集）
    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 发表于 2007-10-31 20:09:00

这个问题困惑我好久了，大家帮忙解决一下了，多谢了！
页: [1]
查看完整版本: 求助：向选择集添加元素问题