[求助]如何将多个选择集合并成一个选择集

dinosaurhxe

如：(setq s1 (ssget "_C" '(0 0) '(1 1)) )

(setq s2 (ssget "_C" pt1 pt2))

现在想把s1与s2合并成一个选择集ss

dwg001

 (command "_.SELECT" S1 S2 "")
  (setq S3 (ssget "P"))

dinosaurhxe

谢谢2楼。

如果S1或者S2为nil呢？

dinosaurhxe

我现在是这么做的，但感觉这样过于麻烦

2. (defun addss (ssa ssb / N SNAME SS)
3. (if (not (null ssa))
4.   (repeat (setq n (sslength ssa))
5.    (setq sname (ssname ssa (setq n (1- n))))
6.    (setq ssb (ssadd sname ssb))
7.   ) ;_ End repeat
8. ) ;_ End if
9. ssb
10. ) ;_ End defun

(defun addss (ssa ssb / N SNAME SS) (if (not (null ssa))   (repeat (setq n (sslength ssa))    (setq sname (ssname ssa (setq n (1- n))))    (setq ssb (ssadd sname ssb))   ) ;_ End repeat ) ;_ End if ssb ) ;_ End defun

dwg001

add   --->  (if (or s1 s2)

...