看看这个lisp为什么老再循环

wei124

;ÃüÁ»­µã¸Ö½î
+ F3 f$ b3 R# u- r7 b4 {: ];;;¹¦ÄÜ£º¿ÉÒÔÔÚÖ¸¶¨µÄ³¤¶ÈÄÚ»­Ö¸¶¨µÄ¸Ö½î½ØÃæ
' O$ |$ @2 @( S+ v(defun C:dgj (/ s a p1 p2 p3 )
  (setvar "cmdecho" 0)
4 B3 @& q/ U. S; _! H    (setvar "osmode" 545)
$ _1 V( K5 I* _! s, v  (setq s (getint"\nÇëÊäÈë¸Ö½îÊýÄ¿:"))
0 U# Z* Z9 {" J  (while
    (setq p1 (getpoint "\nÇëÊ°È¡¸Ö½îÆðµã:"))
    (setq p2 (getpoint "\nÇëÊ°È¡¸Ö½îÖÕµã:"))
/ \4 R3 D. e0 R( I  K    (setq a (angle p1 p2))
    (setvar "osmode" 0)
; g. S( o) U$ g6 x7 |    (setq p1 (polar p1 a (* 1.5 (GETVAR "PLINEWID"))))
    (setq p2 (polar p2 a (- (* 1.5 (GETVAR "PLINEWID")))))
    (setq p1 (polar p1 (- a (/ pi 2)) (* 1.5 (GETVAR "PLINEWID"))))
. ?/ w, Z0 r( N$ d6 ~5 z3 e    (setq p2 (polar p2 (- a (/ pi 2)) (- (* 1.5 (GETVAR "PLINEWID")))))
    (dgj s p1 p2)
: W% w6 J! U+ U- L    (setvar "osmode" 545)
  )
5 e3 |5 C1 i3 ~% v0 j4 `  (princ)
- q3 h+ e) a0 ]& V" u1 d& ])
9 n7 Q; n! m' y% p7 I(defun dgj (s p1 p2 / s a p1 p2 p3 n d)
- _- c& t/ x# }  (setq        a (angle p1 p2)
        n 0
2 o3 Z( E' G; z) O; t0 t2 D- W        d (/ (distance p1 p2) (- s 1))
  )
. F  u; z. B: [3 B. O2 z  (while (< n s)
    (setq p3 (polar p1 a (* d n)))
    (command "layer" "s" "JG_1" "")
1 ^' G2 X8 H6 Q" g  f4 [    (COMMAND "donut" 0 (* 1.5 (GETVAR "PLINEWID")) "")
    (setq n (1+ n))
  )
  (princ)
)
程序如上，这个是用来在指定点之间画指定数目的点钢筋，现在问题是不断地循环，不能实现目标，问题在哪儿，请高手指点。感谢！！