CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

SelectOnScreen 方法（ActiveX）

2024-5-18 18:56| 发布者: admin| 查看: 257| 评论: 0|原作者: admin|来自: AutoCAD

提示用户从屏幕中选取对象。

支持的平台：仅限 Windows

签名

VBA：

object.SelectOnScreen [FilterType, FilterData]

对象

类型：SelectionSet

此方法应用到的对象。

筛选类型

访问：仅输入;自选

类型：变体

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

筛选数据

访问：仅输入;自选

类型：变体

要筛选的值。

返回值（RetVal）

无返回值。

言论

此方法支持过滤机制。

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

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

例子

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

可视化 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)
)