선택 세트 가져오기.Visual LISP

 

Help

 

(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))
)

 

(setq ss (vla-get-ActiveSelectionSet 
                   (vla-get-ActiveDocument
                           (vla-get-acad-object)
                   )
              )
)