[LISP]选择集

davinlee

但是我有二个选择集s102 ,ss102

执行(merge_ss s102 ss102)

出现bad argument type:lselsetp nil

 

ljpnb

要么子程序格式有误

3. (defun merge_ss (ss01 ss02 / i)
4.   (setq i 0)
5.   (repeat (sslength ss02)
6.     (setq ss01 (ssadd (ssname ss02 i) ss01))
7.     (setq i (1+ i))
8.   )
9.   ss01
10. )
11. (defun c:test ()
12.   (setq ss1 (ssget))
13.   (setq ss2 (ssget))
14.   (setq ss1 (merge_ss ss1 ss2))
15. )

(defun merge_ss (ss01 ss02 / i)   (setq i 0)   (repeat (sslength ss02)     (setq ss01 (ssadd (ssname ss02 i) ss01))     (setq i (1+ i))   )   ss01 ) (defun c:test ()   (setq ss1 (ssget))   (setq ss2 (ssget))   (setq ss1 (merge_ss ss1 ss2)) )