求助高手!关于自动处理选择集!

xiaohuameng

    本人想将图中特定的实体选择出来(不需要人机交互,程序自动处理),然后自动对其做一定处理后存盘,查看帮助后知道
可以用过滤的选择集,但是我看SelectOnScreen等都需要人机交互,比如要选择图层"2"中内容为"1/500"的文字进行自动删除,
选择出来后如何对其进行处理,哪位高手能帮帮忙,帮忙改下下面的程序段,谢谢!
Sub Selectsst()
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant 

    FilterType(0) = 0 
    FilterData(0) = "TEXT" 
    sset.SelectOnScreen FilterType, FilterData        
End Sub

xiaohuameng

本人想将图中特定的实体选择出来(不需要人机交互,程序自动处理),然后自动对其做一定处理后存盘,查看帮助后知道可以用过滤的选择集,但是我看SelectOnScreen等都需要人机交互,比如要选择图层"2"中内容为"1/500"的文字进行自动删除,选择出来后如何对其进行处理,哪位高手能帮帮忙,帮忙改下下面的程序段,谢谢!

Sub Selectsst()
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant

    FilterType(0) = 0 
    FilterData(0) = "TEXT" 
    sset.SelectOnScreen FilterType, FilterData

End Sub

fjfhgdwfn

 Dim FilterType(2) As Integer
   Dim FilterData(2) As Variant
   Set sjx = ThisDrawing.SelectionSets.Add("sjx")
  
   FilterType(0) = 0
   FilterData(0) = "text" '是文字

   FilterType(1) = 8
   FilterData(1) = "2"  '图层2
   
   FilterType(2) = 1
   FilterData(2) = "1/500"  '内容是1/500   
 sjx.Select acSelectionSetAll, , , FilterType, FilterData

试试这样