在选择集过滤器列表中指定多个条件

AutoCAD ActiveX/VBA

 
在选择集过滤器列表中指定多个条件
 
 
 

要指定多个选择条件,声明的数组应该包含足够多的元素来表示每个条件,并且将每个条件指定给一个元素。

选择符合三个条件的对象

以下代码指定了两个标准:对象必须是圆,并且必须在图层 0 上。代码将 FilterType 和 FilterData 声明为两个元素的数组,并将每个条件指定给一个元素:

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