ActiveSelectionSet Property （ActiveX）

签名

工 务 局：

object.ActiveSelectionSet

对象

类型：文档

此属性适用的对象。

属性值

只读：是的

类型：选择集

图形的活动选择集。

言论

没有额外的评论。

例子

工 务 局：

Sub Example_ActiveSelectionSet()
    Dim sset As AcadSelectionSet
    ' The following example returns current selection set from current drawing
    Set sset = ThisDrawing.ActiveSelectionSet
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_ActiveSelectionSet()
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; The following example returns the current selection set from the current drawing
    (setq sset (vla-get-ActiveSelectionSet doc))
)