关于不需要人机交互处理选择集

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