Question

LISP求助，如何将两个选择集合并为一个

如何将两个选择集合并为一个，谢谢！

Answer 1

给你段代码，其中主要是LISP函数SSADD的操作，加上用循环结构。
函数功能是把两个选择集合并后用SS作为返回值。

(defun #ssand (ss1 ss2 / i e1 ss)
(if (and ss1
ss2
)
(progn
(setq ss (ssadd))
(setq i 0)
(while (setq e1 (ssname ss1 i))
(if (ssmemb e1 ss2)
(ssadd e1 ss)
)
(setq i (1+ i))
)
(if (> (sslength ss) 0)
ss
)
)
)
)