Specify Multiple Criteria in a Selection Filter

A selection filter can contain filtering criteria for more than just one property or object. You define the total number of conditions to filter on by declaring an array containing enough elements to represent each of the filter criterion.

Select objects that meet two criterion

The following example specifies two criterion to filter selected objects by: the object must be a circle and it must reside on layer 0.

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.EditorInput

<CommandMethod("FilterBlueCircleOnLayer0")> _

Public Sub FilterBlueCircleOnLayer0()

  '' Get the current document editor

  Dim acDocEd As Editor = Application.DocumentManager.MdiActiveDocument.Editor

  '' Create a TypedValue array to define the filter criteria

  Dim acTypValAr(2) As TypedValue

  acTypValAr.SetValue(New TypedValue(DxfCode.Color, 5), 0)

  acTypValAr.SetValue(New TypedValue(DxfCode.Start, "CIRCLE"), 1)

  acTypValAr.SetValue(New TypedValue(DxfCode.LayerName, "0"), 2)

  '' Assign the filter criteria to a SelectionFilter object

  Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)

  '' Request for objects to be selected in the drawing area

  Dim acSSPrompt As PromptSelectionResult

  acSSPrompt = acDocEd.GetSelection(acSelFtr)

  '' If the prompt status is OK, objects were selected

  If acSSPrompt.Status = PromptStatus.OK Then

      Dim acSSet As SelectionSet = acSSPrompt.Value

      Application.ShowAlertDialog("Number of objects selected: " & _

                                  acSSet.Count.ToString())

  Else

      Application.ShowAlertDialog("Number of objects selected: 0")

  End If

End Sub

using Autodesk.AutoCAD.Runtime;

using Autodesk.AutoCAD.ApplicationServices;

using Autodesk.AutoCAD.DatabaseServices;

using Autodesk.AutoCAD.EditorInput;

[CommandMethod("FilterBlueCircleOnLayer0")]

public static void FilterBlueCircleOnLayer0()

  // Get the current document editor

  Editor acDocEd = Application.DocumentManager.MdiActiveDocument.Editor;

  // Create a TypedValue array to define the filter criteria

  TypedValue[] acTypValAr = new TypedValue[3];

  acTypValAr.SetValue(new TypedValue((int)DxfCode.Color, 5), 0);

  acTypValAr.SetValue(new TypedValue((int)DxfCode.Start, "CIRCLE"), 1);

  acTypValAr.SetValue(new TypedValue((int)DxfCode.LayerName, "0"), 2);

  // Assign the filter criteria to a SelectionFilter object

  SelectionFilter acSelFtr = new SelectionFilter(acTypValAr);

  // Request for objects to be selected in the drawing area

  PromptSelectionResult acSSPrompt;

  acSSPrompt = acDocEd.GetSelection(acSelFtr);

  // If the prompt status is OK, objects were selected

  if (acSSPrompt.Status == PromptStatus.OK)

      SelectionSet acSSet = acSSPrompt.Value;

      Application.ShowAlertDialog("Number of objects selected: " +

                                  acSSet.Count.ToString());

  else

      Application.ShowAlertDialog("Number of objects selected: 0");

VBA/ActiveX Code Reference