CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

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

2024-5-18 16:52| 发布者: admin| 查看: 65| 评论: 0|原作者: admin|来自: 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