我要选择厚度不会0的对像，请问选择过滤器如何设置

tiger0101

      我要选择厚度不会0的对像，请问选择过滤器如何设置

      过滤器，难道只能用=

      不能用不着<>  ?

王咣生

可以:

Sub Example_Select()
  
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
   
   
    ' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
    ' (-3.3, -3.6,0) by filtering from the current drawing
    Dim gpCode(0 To 1) As Integer
    Dim dataValue(0 To 1) As Variant
   
    gpCode(0) = -4
    dataValue(0) = "<>"

    gpCode(1) = 39
    dataValue(1) = 0#

   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.Select acSelectionSetAll, , , groupCode, dataCode
   
    MsgBox ssetObj.Count
   
    ssetObj.Delete
   
End Sub

tiger0101

3ku  very much