[求助]：怎样用循环画pl线?

yuun

想用一个程序将其中的点的坐标用循环全部求出来,然后将这些点一个一个连接起来,应该怎么办呢?

我写的一个不能通过的程序,高手帮我看看应该怎么办,怎么做到,谢谢!!!
(DEFUN C:cs()
  (SETQ p0 (GETPOINT "\n插入点 : "))
  (setq mm 6)   ;循环次数
  (setq k 1)     
  (command "pline")        ;先用pline可以不?
    (repeat mm
  (setq p1 (polar p0 k k))   ;p1的坐标用循环求出来
      (setq k (+ 1 k))
    )
    (command "")
  )

netbee

2. (DEFUN C:cs ()
   
3.   (SETQ p0 (GETPOINT "\n插入点 : "))
   
4.   (setq mm 6)                                ;循环次数
   
5.   (setq k 1)
   
6.   (command "pline")                        ;先用pline可以不?
   
7.   (repeat mm
   
8.     (setq p1 (polar p0 k k))                ;p1的坐标用循环求出来
   
9.     (command P1)
   
10.     (setq k (+ 1 k))
    
11.   ) ;_ 结束repeat
    
12.   (command "")
    
13.   (princ)
    
14. ) ;_ 结束DEFUN
    

(DEFUN C:cs ()<br />   (SETQ p0 (GETPOINT "\n插入点 : "))<br />   (setq mm 6)                                ;循环次数<br />   (setq k 1)<br />   (command "pline")                        ;先用pline可以不?<br />   (repeat mm<br />     (setq p1 (polar p0 k k))                ;p1的坐标用循环求出来<br />     (command P1)<br />     (setq k (+ 1 k))<br />   ) ;_ 结束repeat<br />   (command "")<br />   (princ)<br /> ) ;_ 结束DEFUN<br />