ActiveX and VBA Developer's Guide > Create and Edit AutoCAD Entities > Work with Selection Sets > Define Rules for Selection Sets > 
Specify Multiple Criteria in a Selection Set Filter List
 
 
 

To specify multiple selection criteria, declare an array containing enough elements to represent each criterion, and assign each criterion to an element.

Select objects that meet three criteria

The following code specifies two criteria: the object must be a circle and it must reside on layer 0. The code declares FilterType and FilterData as arrays of two elements, and assigns each criterion to an element:

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