选择屏幕方法 （ActiveX）

签名

工 务 局：

object.SelectOnScreen [FilterType, FilterData]

对象

类型：选择集

此方法适用的对象。

过滤器类型

访问：仅输入;自选

类型：变体

指定要使用的筛选器类型的 DXF 组代码。

过滤数据

访问：仅输入;自选

类型：变体

要筛选的值。

返回值（RetVal）

无返回值。

言论

此方法支持筛选机制。

将自动使用 AutoCAD 选取对象的默认提示。

有关更多选择模式选项，请参阅、和方法。SelectSelectByPolygonSelectAtPoint

例子

工 务 局：

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)
)