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

tiger0101 发表于 2005-11-9 19:57:00

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

我要选择厚度不会0的对像，请问选择过滤器如何设置
      过滤器，难道只能用=
      不能用不着?

王咣生 发表于 2005-11-9 20:17:00

可以:
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 发表于 2005-11-10 20:00:00

3kuvery much

查看完整版本: 我要选择厚度不会0的对像，请问选择过滤器如何设置