有选择集快速合并的方法或程序么

dzgsfjw

我在网上找了下，如下程序。当两个选择集内对象少时没什么问题，但当选择集内对象很多，成千上万个，比对时花时太多（1分钟以上）。
有什么好方法可以提高速度，节省时间？


(defun ssheh (ss1 ss2 / i e1 )
  (setq sss nil)
  (if (and ss1 ss2 )
    (progn
      (setq sss ss2)
      (setq i 0)
      (while (setq e1 (ssname ss1 i))
        (if (= (ssmemb e1 ss2) nil)
            (ssadd e1 sss)
         )
        (setq i (1+ i))
      )
      (if (> (sslength ss) 0)  sss  )
    ) ; progn
  ) ;if and
sss
)

Underway

...成千上万个...   没遇上
试试
(command "Select" ss1 ss2 "")
(setq sss (ssget 'P"))

Free-Lancer

2. 
   
3. (defun ssu (s1 s2 /)
   
4.   (vl-cmdf ".select" s1 s2 "")
   
5.   (ssget "P")
   
6. )
   
7. (defun ssu1 (s1 s2 / s3 i)
   
8.   (if (< (sslength s1) (sslength s2))
   
9.     (setq s3 s1
   
10.           s1 s2
    
11.           s2 s3
    
12.     )
    
13.   )
    
14.   (setq i (sslength s2))
    
15.   (while (setq e (ssname s2 (setq i (1- i))))
    
16.     (ssadd e s1)
    
17.   )
    
18.   s1
    
19. )

<br /> (defun ssu (s1 s2 /)<br />   (vl-cmdf ".select" s1 s2 "")<br />   (ssget "P")<br /> )<br /> (defun ssu1 (s1 s2 / s3 i)<br />   (if (< (sslength s1) (sslength s2))<br />     (setq s3 s1<br />           s1 s2<br />           s2 s3<br />     )<br />   )<br />   (setq i (sslength s2))<br />   (while (setq e (ssname s2 (setq i (1- i))))<br />     (ssadd e s1)<br />   )<br />   s1<br /> )

dzgsfjw

Free-Lancer 发表于 2014-6-22 23:03

谢谢
这也是个好思路，少的向多的中并，但要增加是否重复判断。
应该会快些。

newer

dzgsfjw 发表于 2014-6-23 08:12
谢谢
这也是个好思路，少的向多的中并，但要增加是否重复判断。
应该会快些。

你就直接SSADD往里面添加吧，让SSADD自己处理是否重复，比你判断的快。

/db_自贡黄明儒_

添加好整(command "._Select" ss1 "_Add" ss2 "")
相减(command "._Select" ss1 "_Remove" ss2 "")可能不是你希望的结果

newer

/db_自贡黄明儒_ 发表于 2014-6-23 08:54
添加好整(command "._Select" ss1 "_Add" ss2 "")
相减(command "._Select" ss1 "_Remove" ss2 "")可能不 ...

签名是英文歌 sailing 里面的词吗？