Selection Sets

[hostetterkl]

Does anyone know how to add two selection sets together into one?

[miff]

I do! I do!

:)

Oh, you want to know how too?


(defun merge_ss (ss1 ss2 / idx ent)
(setq idx -1)
(while (< (setq idx (1+ idx)) (sslength ss2))
(setq ent (ssname ss2 idx))
(if (not (ssmemb ent ss1))
(ssadd ent ss1)
)
)
ss1
)

;;Example:
(setq ss1 (ssget)
ss2 (ssget)
ss3 (merge_ss ss1 ss2)
)