<P>执行(merge_ss s102 ss102)</P>
<P>出现bad argument type:lselsetp nil</P>
<P> </P> 要么子程序格式有误
(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))
)
感谢各位大佬，学习到了！
页:
1
[2]