VBA中的查询

   Dim ssetObj As AcadSelectionSet
   Dim mode As Integer
   Dim grpCode(1) As Integer
   Dim dataVal(1) As Variant
   
   Set ssetObj = ThisDrawing.SelectionSets.Add("SS01") --- why they had add "SSO1".
   mode = acSelectionSetAll
   grpCode(0) = 0
   dataVal(0) = "LWPOLYLINE"
     grpCode(2) = 8
   dataVal(2) = "route"
   ssetObj.Select mode, , , grpCode, dataVal
   'ssetObj.Erase
   'ssetObj.Delete

Option Explicit
Public Sub TestSet(objDoc As AcadDocument)
  Dim objSelSet As AcadSelectionSet
  Dim objSelCol As AcadSelectionSets
  Dim objLayer As AcadLayer
  Dim intType(0) As Integer
  Dim varData(0) As Variant
  Dim objEnt As AcadEntity
  Set objSelCol = objDoc.SelectionSets
  For Each objSelSet In objSelCol
    If objSelSet.Name = "test1" Then
      objSelSet.Delete
      Exit For
    End If
  Next objSelSet
  Set objSelSet = objSelCol.Add("test1")
  intType(0) = 0
  varData(0) = "INSERT"
  objSelSet.Select 5, filtertype:=intType, _
  filterdata:=varData
  For Each objEnt In objSelSet
    Set objLayer = objEnt.Layer
    If Not objLayer.Freeze And objLayer.LayerOn Then
      objEnt.Layer = 0
    End If
  Next objEnt
  Set objSelCol = Nothing
  objSelSet.Delete
End Sub

objEnt.Layer = "0"