[求助]：vla-clear 对 activeseletionset 无效

eachy

vla-removeitems 也不能清空 activeseletionset

e2002

处理selection set 直接用vl不更直接,简单,有效吗?何必要vla-ActiveX呢?

eachy

最初由 e2002 发布
[B]处理selection set 直接用vl不更直接,简单,有效吗?何必要vla-ActiveX呢? [/B]

我想控制选择时的 “P”  选择集，Vl 有什么方法？

陌生人

sssetfirst 可以么? :)

LUCAS

2. 
   
3. ;;activeselectionset是最後一個選集,本身就是"P"
   
4. (defun ACTIVE-SS ()
   
5.   (vl-load-com)
   
6.   (vla-get-activeselectionset
   
7.     (vla-get-activedocument
   
8.       (vlax-get-acad-object)
   
9.     )
   
10.   )
    
11. )
    
12. 
    
13. 
    
14. (defun C:TT ()
    
15.   (ssget)
    
16.   (vlax-for ENT        (ACTIVE-SS)
    
17.     (print (vla-get-objectname ENT))
    
18.   )
    
19.   (princ)
    
20. )
    

<br /> ;;activeselectionset是最後一個選集,本身就是"P"<br /> (defun ACTIVE-SS ()<br />   (vl-load-com)<br />   (vla-get-activeselectionset<br />     (vla-get-activedocument<br />       (vlax-get-acad-object)<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun C:TT ()<br />   (ssget)<br />   (vlax-for ENT        (ACTIVE-SS)<br />     (print (vla-get-objectname ENT))<br />   )<br />   (princ)<br /> )<br />