Se pueden utilizar aplicaciones externas para asociar datos tales como cadenas de texto, valores numéricos, puntos 3D, distancias y nombres de capa a objetos de AutoCAD. Estos son los denominados datos extendidos o datoseX. Se pueden crear filtros de entidades que contengan datos extendidos de una aplicación específica.
Para obtener más información acerca de los datos extendidos, véase Filtro para datos extendidos.
Selección de círculos que contienen datos extendidos
En el siguiente ejemplo, se filtran los círculos que contienen datos extendidos procedentes de la aplicación “MI_APL”.
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) = "MI_APL"
sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData
End Sub