概要 - 選択セットにオブジェクトを追加する(VBA/ActiveX)

アクティブな選択セットにオブジェクトを追加することができます。

選択セットにオブジェクトを追加するには、次のいずれかの方法を使用します。

AddItems

1 つまたは複数のオブジェクトを、指定した選択セットに追加します。

Select

オブジェクトを選択してそれらをアクティブな選択セットに配置します。全オブジェクト、矩形領域内またはそれにまたがるオブジェクト、ポリゴン領域内またはそれにまたがるオブジェクト、枠をまたがる全オブジェクト、最後に作成したオブジェクト、最新の選択セット内のオブジェクト、窓の中のオブジェクト、またはポリゴン窓を選択できます。

SelectAtPoint

指定した点を通るオブジェクトを選択し、それをアクティブな選択セット内に配置します。

SelectByPolygon

枠内のオブジェクトを選択し、それをアクティブな選択セットに追加します。

SelectOnScreen

ユーザに画面からオブジェクトを選択するようプロンプトを出し、それをアクティブな選択セットに追加します。

選択されたオブジェクトを選択セットに追加する

次の例は、ユーザに対してオブジェクトを選択するよう促し、選択されたオブジェクトを選択セットに追加します。

Sub Ch4_AddToASelectionSet()
  ' Create a new selection set
  Dim sset As AcadSelectionSet
  Set sset = ThisDrawing.SelectionSets.Add("SS1")

  ' Prompt the user to select objects
  ' and add them to the selection set.
  ' To finish selecting, press ENTER.
  sset.SelectOnScreen
End Sub