ActiveSelectionSet 属性 (ActiveX)
获取图形的活动选择集。 支持的平台:仅限 Windows 言论没有其他评论。 例子VBA: Sub Example_ActiveSelectionSet()
Dim sset As AcadSelectionSet
' The following example returns current selection set from current drawing
Set sset = ThisDrawing.ActiveSelectionSet
End Sub
可视化 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))
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-11-1 11:34
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.