SelectOnScreen メソッド(ActiveX)

ユーザに画面上でオブジェクトを選択するよう要求します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.SelectOnScreen [FilterType, FilterData]

object

タイプ: SelectionSet

このメソッドが適用されるオブジェクト。

FilterType

アクセス: 入力のみ; オプション

タイプ: バリアント型

使用するフィルタのタイプを指定する DXF グループ コード。

FilterData

アクセス: 入力のみ; オプション

タイプ: バリアント型

フィルタをオンにする値。

戻り値(RetVal)

戻り値はありません。

注意

このメソッドは、フィルタ機能をサポートしています。

AutoCAD の既定のオブジェクト選択用プロンプト文字列が、自動的に使用されます。

選択モードのオプションについての詳細は、Select、SelectByPolygon、および SelectAtPoint メソッドを参照してください。

例

VBA:

Sub Example_SelectOnScreen()
    ' This example adds objects to a selection set by prompting the user
    ' to select ones to add.
    
    AppActivate ThisDrawing.Application.Caption
    
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
    
    ' Add objects to a selection set by prompting user to select on the screen
    ssetObj.SelectOnScreen
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_SelectOnScreen()
    ;; This example adds objects to a selection set by prompting the user
    ;; to select ones to add.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Create the selection set
    (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "TEST_SSET"))
    
    ;; Add objects to a selection set by prompting user to select on the screen
    (vla-SelectOnScreen ssetObj)
    
    (alert (strcat "Objects selected: " (itoa (vla-get-Count ssetObj))))
    (vla-Delete ssetObj)
)