[求助] repeat求点

ahhfthdl

请教下各位:

(defun c:test00 ()
  (setq t0 1)
  (repeat 10
    (setq p1 (list (sin t0) (cos t0)))
    (setq t0 (+ t0 1))
    另外求最后一点p10,怎么写？
  )
  (princ p1)

 (princ p10)
  (princ)
)

ZZXXQQ

3. (defun c:test00 ()
4. (setq t0 1 pt "p")
5. (repeat 10
6.   (set (read(strcat pt (itoa t0))) (list (sin t0) (cos t0)))
7.   (princ (eval(read(strcat pt(itoa t0))))) (princ "\n")
8.   (setq t0 (+ t0 1))
9. )
10. (princ)
11. )

(defun c:test00 () (setq t0 1 pt "p") (repeat 10   (set (read(strcat pt (itoa t0))) (list (sin t0) (cos t0)))   (princ (eval(read(strcat pt(itoa t0))))) (princ "\n")   (setq t0 (+ t0 1)) ) (princ) )