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

ActiveX 开发指南

关于使用筛选器列表定义选择集规则（VBA/ActiveX）

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

摘要: 筛选器列表由参数对组成。

筛选器列表由参数对组成。

第一个参数标识筛选器的类型（例如，对象），第二个参数指定要筛选的值（例如，圆圈）。筛选器类型是指定要使用的筛选器的 DXF 组代码。此处列出了一些最常见的筛选器类型。

常见过滤器的 DXF 代码
DXF 代码	过滤器类型
0	对象类型（字符串）如“线”、“圆”、“弧”等。
2	对象名称（字符串）命名对象的表（给定）名称。
8	图层名称（字符串）如“第 0 层”。
60	对象可见性（整数）使用 0 = 可见，1 = 不可见。
62	颜色数字（整数）数字索引值的范围为 0 到 256。零表示 BYBLOCK。256 表示 BYLAYER。负值表示图层已关闭。
67	模型/图纸空间指示器（整数）使用 0 或省略 = 模型空间，1 = 图纸空间。

筛选器参数声明为数组。筛选器类型声明为整数，筛选器值声明为变体。每种筛选器类型都必须与筛选器值配对。例如：

FilterType(0) = 0            'Indicates filter refers to an object type
FilterData(0) = "Circle"     'Indicates the object type is "Circle"

为选择集指定单个选择条件

以下代码提示用户选择要包括在选择集中的对象，但仅当所选对象为圆时才会添加该对象：

Sub Ch4_FilterMtext()
  Dim sstext As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS2")
  FilterType(0) = 0
  FilterData(0) = "Circle"
  sstext.SelectOnScreen FilterType, FilterData
End Sub