lisp裏面選集SS1 和 選集SS2 如何合並成選集SS？ 還有就是 我用復制命令復制了多個圖元 (command "copy" s

(defun c:test()

(if (setq ss1 (ssget))

(if (setq ss2 (ssget))

(progn

(setq ss (hbxcj ss1 ss2));選集SS1 和 選集SS2 合並成選集SS

(command "_copy" ss "" pause)

)

)

)

(princ)

)

;將兩個選擇集合並為壹個選擇集返回

(defun hbxcj(Xss1 Xss2 / Xss i)

(setq Xss (ssadd)

i -1

)

(repeat (sslength Xss1)

(ssadd (ssname Xss1 (setq i (1+ i))) Xss)

)

(setq i -1)

(repeat (sslength Xss2)

(ssadd (ssname Xss2 (setq i (1+ i))) Xss)

)

Xss

)