概要 - 選択セット フィルタ リストに複数の条件を指定する(VBA/ActiveX)

複数の選択条件を設定するためには、各条件を表すのに十分な数の要素を含む配列を宣言し、各条件を 1 つの要素に割り当てます。

3 つの条件で図形を選択する

図形は円オブジェクトに限り、しかも 0 画層にある必要があります。このコードは、FilterType と FilterData を 2 つの要素を持つ配列として宣言し、それぞれの条件を要素に割り当てます。

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