[VLISP函数-选择集]：清除前一选择集

eachy

2. 
   
3. (defun xd-Clearcset (/ cset)
   
4.   (if (not (vl-catch-all-error-p
   
5.              (setq cset
   
6.                     (vl-catch-all-apply
   
7.                       'vla-item
   
8.                       (list
   
9.                         (vla-get-selectionsets
   
10.                           (vla-get-activedocument (vlax-get-acad-object)) ;_
    
11.                         )
    
12.                         "CURRENT"
    
13.                       )
    
14.                     )
    
15.              )
    
16.            )
    
17.       )
    
18.     (vla-delete cset)
    
19.   )
    
20.   (princ)
    
21. )

<br /> (defun xd-Clearcset (/ cset)<br />   (if (not (vl-catch-all-error-p<br />              (setq cset<br />                     (vl-catch-all-apply<br />                       'vla-item<br />                       (list<br />                         (vla-get-selectionsets<br />                           (vla-get-activedocument (vlax-get-acad-object)) ;_<br />                         )<br />                         "CURRENT"<br />                       )<br />                     )<br />              )<br />            )<br />       )<br />     (vla-delete cset)<br />   )<br />   (princ)<br /> )

eachy

发现Autodesk定义的一个

2. 
   
3. (defun ai_deselect ()
   
4.   (if (= (getvar "cmdecho") 0) ;_start if
   
5.     (command "_.select" "_r" "_all" "")
   
6.     (progn ;_start progn for cmdecho 1
   
7.       (setvar "cmdecho" 0)
   
8.       (command "_.select" "_r" "_all" "")
   
9.       (setvar "cmdecho" 1)
   
10.     ) ;_end progn for cmdecho 1
    
11.   ) ;_end if
    
12.   ;;(terpri)
    
13.   ;;(prompt "所有对象都已取消选择")
    
14.   (princ)
    
15. )

<br /> (defun ai_deselect ()<br />   (if (= (getvar "cmdecho") 0) ;_start if<br />     (command "_.select" "_r" "_all" "")<br />     (progn ;_start progn for cmdecho 1<br />       (setvar "cmdecho" 0)<br />       (command "_.select" "_r" "_all" "")<br />       (setvar "cmdecho" 1)<br />     ) ;_end progn for cmdecho 1<br />   ) ;_end if<br />   ;;(terpri)<br />   ;;(prompt "所有对象都已取消选择")<br />   (princ)<br /> )

狂刀

如果用到　activeselectionset ,还是前一个管用，第二个不管用

2. 
   
3.   [FONT=courier new]
   
4. ;;取得当前vla选集
   
5. (defun xd-cset ()
   
6.   (setq        *doc  (vla-get-activedocument (vlax-get-acad-object))
   
7.         *sets (vla-get-selectionsets *doc)
   
8.   )
   
9.   (if (ssget "P")
   
10.     (vla-delete (vla-item *sets 0))
    
11.   )
    
12.   (vla-get-activeselectionset *doc)
    
13. )
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;取得当前vla选集<br /> (defun xd-cset ()<br />   (setq        *doc  (vla-get-activedocument (vlax-get-acad-object))<br />         *sets (vla-get-selectionsets *doc)<br />   )<br />   (if (ssget "P")<br />     (vla-delete (vla-item *sets 0))<br />   )<br />   (vla-get-activeselectionset *doc)<br /> )<br />   [/FONT]<br />

aeo

最初由 eachy 发布
[B]发现Autodesk定义的一个
[code]
(defun ai_deselect ()
  (if (= (getvar "cmdecho") 0) ;_start if
    (command "_.select" "_r" "_all" "")
    (progn ;_start progn for cmdecho 1
      (setvar "cmdech... [/B]

我早就试过
(command "_.select" "_r" "_all" "")
后
(ssget "P")照样是可以得到以前的选集的.

xyz518mm

请问讨论的结果是(ssget "P")里面的选集是没法清除吗?

fsxm

为什么还清除最后的选择集啊？

/db_自贡黄明儒_

用时方知妙处。清除不了呀？？？