[求助] repeat求点
 

[求助] repeat求点
www.dimcax.com
[求助] repeat求点
请教下各位:
(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)
)
d
( c:test00 ()
( t0 1 pt "p")
( 10
( ((strcat pt ( t0))) ( ( t0) ( t0)))
( ((read( pt( t0))))) ( "\n")
( t0 ( t0 1))
)
()
)
踅摸
d