选择集相减的问题？

/db_自贡黄明儒_

;;选择集相减(command "._Select" ss1 "_Remove" ss2 "")看起来很简单
(setq ss1 (ssget))
(setq ss2 ss1)
(command "._Select" ss1 "_Remove" ss2 "");看起来很简单
(setq ss (ssget "_P"))
(sslength ss);;不为0,这与我们通常的理解不一样，希望为0，但确不是,通常各位是怎么处理的呀?

;;先贴上我的处理办法

2. 
   
3. ;;142 [功能] 选择集相减 By 自贡黄明儒2012.8.23
   
4. ;;返回 选择集 or nil
   
5. ;;(setq ss1 (ssget)) (setq ss2 (ssget))
   
6. (defun SS_Sub (SS1 SS2 / ENAME SS SSTEMP)
   
7.   (cond ((and (equal (type ss1) 'PICKSET)
   
8.        (equal (type ss1) 'PICKSET)
   
9.   )
   
10.   (cond ((equal (sslength ss1) (sslength ss2))
    
11.   (vl-cmdf "_.select" ss1 "")
    
12.   (setq ss (ssget "p"))
    
13.   (vl-cmdf "_.select" ss2 "")
    
14.   (setq ssTemp (ssget "p"))
    
15.   (repeat (sslength ssTemp)
    
16.     (Setq ENAME (SsName ssTemp 0))
    
17.     (SsDel ENAME ssTemp)
    
18.     (if (ssmemb ENAME ss)
    
19.       (SsDel ENAME SS)
    
20.     )
    
21.   )
    
22.   (if (equal (sslength ss) 0)
    
23.     nil
    
24.     ss
    
25.   )
    
26.         )
    
27.         (T
    
28.   (command "._Select" ss1 "_Remove" ss2 "")
    
29.   (ssget "_P")
    
30.         )
    
31.   )
    
32. )
    
33. ((and (equal (type ss1) 'PICKSET)
    
34.        (not (equal (type ss2) 'PICKSET))
    
35.   )
    
36.   ss1
    
37. )
    
38. (T nil)
    
39.   )
    
40. )
    

<br /> ;;142 [功能] 选择集相减 By 自贡黄明儒2012.8.23<br /> ;;返回 选择集 or nil<br /> ;;(setq ss1 (ssget)) (setq ss2 (ssget))<br /> (defun SS_Sub (SS1 SS2 / ENAME SS SSTEMP)<br />   (cond ((and (equal (type ss1) 'PICKSET)<br />        (equal (type ss1) 'PICKSET)<br />   )<br />   (cond ((equal (sslength ss1) (sslength ss2))<br />   (vl-cmdf "_.select" ss1 "")<br />   (setq ss (ssget "p"))<br />   (vl-cmdf "_.select" ss2 "")<br />   (setq ssTemp (ssget "p"))<br />   (repeat (sslength ssTemp)<br />     (Setq ENAME (SsName ssTemp 0))<br />     (SsDel ENAME ssTemp)<br />     (if (ssmemb ENAME ss)<br />       (SsDel ENAME SS)<br />     )<br />   )<br />   (if (equal (sslength ss) 0)<br />     nil<br />     ss<br />   )<br />         )<br />         (T<br />   (command "._Select" ss1 "_Remove" ss2 "")<br />   (ssget "_P")<br />         )<br />   )<br /> )<br /> ((and (equal (type ss1) 'PICKSET)<br />        (not (equal (type ss2) 'PICKSET))<br />   )<br />   ss1<br /> )<br /> (T nil)<br />   )<br /> )<br />

st788796

select remove后再用command select p，然后才是ssget p

/db_自贡黄明儒_

st788796 发表于 2013-10-29 11:35
select remove后再用command select p，然后才是ssget p

好象还是不行吧？

q3_2006

但实际上是没有图元的呀，这是为什么？？

q3_2006

黄工的常用函数也在晓东贴一份吧，明经的最新版已经不能下载了！

434939575

见天在研究这个。学习学习。