CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于使用选择集（VBA/ActiveX）› 关于定义选择集的规则（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于在选择集筛选器列表中指定多个条件（VBA/ActiveX）

2023-1-5 01:28| 发布者: admin| 查看: 1165| 评论: 0|来自: AutoCAD

摘要: 若要指定多个选择条件，请声明一个包含足够元素的数组来表示每个条件，并将每个条件分配给一个元素。

若要指定多个选择条件，请声明一个包含足够元素的数组来表示每个条件，并将每个条件分配给一个元素。

选择满足三个条件的对象

以下代码指定了两个条件：对象必须是圆形，并且必须位于图层 0 上。该代码将和声明为两个元素的数组，并将每个条件分配给一个元素：FilterTypeFilterData

Sub Ch4_FilterBlueCircleOnLayer0()
  Dim sstext As AcadSelectionSet
  Dim FilterType(1) As Integer
  Dim FilterData(1) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS4")

  FilterType(0) = 0
  FilterData(0) = "Circle"

  FilterType(1) = 8
  FilterData(1) = "0"

  sstext.SelectOnScreen FilterType, FilterData
End Sub