关于增加筛选器列表条件的复杂性 （VBA/ActiveX）

指定多个选择条件时，AutoCAD 假定所选对象必须满足每个条件。但是您可以通过其他方式限定您的标准。

对于数值项目，可以指定关系运算（例如，圆的半径必须大于或等于 5.0）。对于所有项目，您可以指定逻辑操作（例如，或）。TextMtext

使用 -4 DXF 代码指示筛选器规范中的关系运算符。将运算符指定为字符串。下表显示了允许的关系运算符。

筛选器列表中的逻辑运算符也由 -4 组码表示，运算符为字符串，但运算符必须配对。开盘运算符前面是小于号 （<），收盘运算符后跟大于号 （>）。下表列出了选择集过滤中允许的逻辑运算符。

Sub Ch4_FilterRelational()
  Dim sstext As AcadSelectionSet
  Dim FilterType(2) As Integer
  Dim FilterData(2) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS5")

  FilterType(0) = 0
  FilterData(0) = "Circle"
  FilterType(1) = -4
  FilterData(1) = ">="
  FilterType(2) = 40
  FilterData(2) = 5#

  sstext.SelectOnScreen FilterType, FilterData
End Sub

Sub Ch4_FilterOrTest()
  Dim sstext As AcadSelectionSet
  Dim FilterType(3) As Integer
  Dim FilterData(3) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS6")
  FilterType(0) = -4
  FilterData(0) = "<or"
  FilterType(1) = 0
  FilterData(1) = "TEXT"
  FilterType(2) = 0
  FilterData(2) = "MTEXT"
  FilterType(3) = -4
  FilterData(3) = "or>"

  sstext.SelectOnScreen FilterType, FilterData
End Sub