図面のアクティブな選択セットを取得します。
サポートされているプラットフォーム: 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
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)) )