[讨论]：如何最简洁的求两个选择集的交集

陌生人

(setq ss1 (ssget)    ss2 (ssget))
问:如何最简洁的求两个选择集的交集

eachy

最初由 陌生人 发布
[B](setq ss1 (ssget)    ss2 (ssget))
问:如何最简洁的求两个选择集的交集 [/B]

2. 
   
3. (defun test (s1 s2 / e n)
   
4.   (setq n -1)
   
5.   (repeat (sslength s1)
   
6.     (setq e (ssname s1 (setq n (1+ n))))
   
7.     (if        (not (ssmemb e s2))
   
8.       (ssdel e s1)
   
9.     )
   
10.   )
    
11.   s1
    
12. )

<br /> (defun test (s1 s2 / e n)<br />   (setq n -1)<br />   (repeat (sslength s1)<br />     (setq e (ssname s1 (setq n (1+ n))))<br />     (if        (not (ssmemb e s2))<br />       (ssdel e s1)<br />     )<br />   )<br />   s1<br /> )

在 Repeat 中应该选择 sslength 短的选择集提高效率

aeo

;;;S&S
a+b和b+c,求b:得到a或c就行
(command".select" ss1 "r"ss2 "") ; a
(command".select" ss1"r""p""") ;b
(ssget "p")

;;;S+S
求a+b+c
(command".select" ss1 ss2 "")
(ssget "p")


;;;S-S
求a
(command".select" ss1 "R"ss2 "")
(ssget "p")


;;;SxS
a+b和b+c,求a+c
(command".select" ss1 "R"ss2 "")  ;a
(command".select" ss2 "R"ss1"a""p" "") ;c+a
(ssget "p")

zhang8755

aeo 的方法真有独到之处，不知在处理大选择集时速度怎样？

luoyaya

我想肯定比那个2楼的要慢,用COMMAND如果对象多了之后光显示就半天了,而且还要选好几次

aeo

最初由 luoyaya 发布
[B]我想肯定比那个2楼的要慢,用COMMAND如果对象多了之后光显示就半天了,而且还要选好几次 [/B]

你不防试试.
弄个10000个实体,哪个快?

zhang8755

我试了一下，aeo的方法速度很快，因为只用了两次command 命令，比自己用循环处理还要快。

lt_zzy

最初由 eachy 发布
[B]
[CODE]
(defun test (s1 s2 / e n)
  (setq n -1)
  (repeat (sslength s1)
    (... [/B]

我感觉中间应该改成：
(if        (not (ssmemb e s2))
   (progn
      (ssdel e s1)
      (setq n (1- n))
   )
)

LUCAS

再參考下以前的貼子
http://www.xdcad.net/forum/showt ... d=362605#post362605

lsjjm

最初由 陌生人 发布
[B](setq ss1 (ssget)    ss2 (ssget))
问:如何最简洁的求两个选择集的交集 [/B]

最简洁的办法恐怕非ET的内部函数模属了:
(acet-ss-intersection SS1 SS2)

陌生人

et不也是写出来的？

lsjjm

最初由 陌生人 发布
[B]et不也是写出来的？ [/B]

什么意思? 一般来说内部函数运算比你再编程要来得快, 你试试!

oyxx_1023

3楼的方法不知道对“其中的一个选择集是空的”这种情况适用不？

它山之石

为什么不用晓东API呢？
(xdrx_PickSet_Intersect　ss1 ss2)

xdrx_PickSet_Intersect

功  能：得到两个选择集的交集(同时在两个选择集的实体构成的选择集)

返回值：选择集ss1*ss2

说  明：上面三个关于选择集函数，得到的选择集都保存在内部数据库NO1位置。
        换句话说，就是这之后若有对NO1的操作，那么，保存的选择集将释放。
        可能的操作有：
        (setq ss (ssget))
        (xdrx_setsstodb ss 0)