ActiveX and VBA Developer's Guide > Create and Edit AutoCAD Entities > Work with Selection Sets > Define Rules for Selection Sets > 
Filter for Extended Data
 
 
 

External applications can attach data such as text strings, numeric values, 3D points, distances, and layer names to AutoCAD objects. This data is referred to as extended data, or xdata. You can filter entities containing extended data for a specified application.

See Filter for Extended Data for more information about extended data.

Select circles that contain xdata

The following example filters for circles containing xdata added by the “MY_APP” application:

Sub Ch4_FilterXdata()

   Dim sstext As AcadSelectionSet

   Dim mode As Integer

   Dim pointsArray(0 To 11) As Double

   mode = acSelectionSetWindowPolygon

   pointsArray(0) = -12#: pointsArray(1) = -7#: pointsArray(2) = 0

   pointsArray(3) = -12#: pointsArray(4) = 10#: pointsArray(5) = 0

   pointsArray(6) = 10#: pointsArray(7) = 10#: pointsArray(8) = 0

   pointsArray(9) = 10#: pointsArray(10) = -7#: pointsArray(11) = 0

   Dim FilterType(1) As Integer

   Dim FilterData(1) As Variant

   Set sstext = ThisDrawing.SelectionSets.Add("SS9")




   FilterType(0) = 0




   FilterData(0) = "Circle"




   FilterType(1) = 1001




   FilterData(1) = "MY_APP"







   sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData







End Sub