[LISP]不知错误出在哪了！

lxz0929

输出所有SPLINE的信息，但现在出不来，请帮帮忙！
(Defun C:SPLL ()
(setq s1(ssget"X" '((0 . "SPLINE"))))
(sslength s1)
(setq ent (entnext))
(setq ent1 ent)
(while(ent1)
(progn
(setq ent2(entget ent1))
(setq ct 0)
(repeat (length ent2)
(print(nth ct ent2))
(setq ct (+ 1 ct))
)
(print)
(setq ent1 (entnext ent))
)
)
(print)
) 好象WHILE函数有点问题，但我不知道怎么改！

jans

(sslength s1)


好象提示参数错误?

meflying

不知道写的什么东西，，，