使用 VBA 以外的其它编程语言

Sub Example_ActiveSelectionSet()
    Dim sset As AcadSelectionSet
    ' 以下示例返回当前图形的当前选择集
    Set sset = ThisDrawing.ActiveSelectionSet
End Sub