Uso de listas de filtros para definir normas de conjuntos de selección
Definición de normas para conjuntos de selección
Adición de condiciones a la lista de filtros
Para especificar varios criterios de selección, declare una matriz que contenga elementos suficientes para representar cada criterio, y asigne un criterio a cada elemento.
Selección de objetos que cumplen tres criterios
El código siguiente especifica dos criterios: el objeto debe ser un círculo, y debe residir en la capa 0. El código declara FilterType y FilterData como matrices de dos elementos y asigna cada criterio a un elemento:
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