PickFirstSelectionset

Free-Lancer

ActiveX 模型中这个 PickFirstSelectionset 集合是一直存在，并根据选择情况更新, 也没有 CURRENT 的 BUG

1. (defun fy:pickss (/ ss el)
   
2.   (if (and (setq ss (vla-get-pickfirstselectionset
   
3.                       (vla-get-activedocument (vlax-get-acad-object))
   
4.                     )
   
5.            )
   
6.            (> (vla-get-count ss) 0)
   
7.       )
   
8.     (vlax-for obj ss
   
9.       (setq el (cons obj el))
   
10.     )
    
11.   )
    
12.   el
    
13. )

(defun fy:pickss (/ ss el)<br />   (if (and (setq ss (vla-get-pickfirstselectionset<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />            )<br />            (> (vla-get-count ss) 0)<br />       )<br />     (vlax-for obj ss<br />       (setq el (cons obj el))<br />     )<br />   )<br />   el<br /> )

cable2004

{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}