在选择集过滤器列表中指定多个条件

AutoCAD ActiveX/VBA

previous page next page

使用过滤器列表来定义选择集规则

定义选择集的规则

增加过滤器列表条件的复杂程度

ActiveX/VBA 开发人员手册 > 创建和编辑 AutoCAD 图元 > 使用选择集 > 定义选择集的规则 >

在选择集过滤器列表中指定多个条件

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

选择符合三个条件的对象

以下代码指定了两个标准：对象必须是圆，并且必须在图层 0 上。代码将 FilterType 和 FilterData 声明为两个元素的数组，并将每个条件指定给一个元素：

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

previous page start next page