while문..도와 주세요 ^^

안녕하세요…
리습 초보자 입니다
제가 하고자 하는것은 기준점을 기준으로 얼마만큼의 간격이있는지를 알아내는 리습을 해보고 있습니다
결과물은 제대로 나오는듯 한데 몇가지 문제가 있어 고수님들에게 질문 드립니다
맨처음 기준점 입력받고  그다음 부터는 첫번째 Start좌표,  그리고 첫번째 End좌표 이런식으로
횟수에 관계없이 Start좌표 End좌표를 입력받고 마지막에 엔터를 치면 Close까지 찍고 while문을 빠져 나오게 하고 싶은데 Close가 안찍힙니다 T.T  좌표들은 제가 원하는데로 찍히고요
Command상태까지는 나오는데 강제종료되는 느낌 이라고 해야 되나요??
기준점 StandardX, StandardY는 소스에서는 빠져 있습니다..기준점은 받았다고 가정하고 한번 살표봐 주십시요…
while문을 무한루프 돌리는 방법도 좀 어거지 스럽게 처리가 됬습니다…




(setq cnt 0)
(setq rep 1)
(while (> rep 0)

        (prompt “r”)
        (setq cnt(+ cnt 1))
        (princ cnt);
        (prompt “번째 Start좌표를 입력하세요”)
        (setq ptp (getpoint))
        (setq PointX(car ptp)
          PointY(cadr ptp))
        (setq PointX (- PointX StandardX))
        (setq PointY (- PointY StandardY))
        (if (< PointX 0) (setq PointX (* PointX -1)))
        (if (< PointY 0) (setq PointY (* PointY -1))) 
        (setq PointXY (strcat  (rtos PointX 2 3) “” “,” (rtos PointY 2 3)”,”)) 
        (setq re_text (write-line  PointXY   file_open))

        
        (prompt “r”)
        (princ cnt);
        (prompt “번째 End좌표를 입력하세요”)
        (setq ptp1 (getpoint))
        (setq PointX1(car ptp1)
          PointY1(cadr ptp1))
        (setq PointX1 (- PointX1 StandardX))
        (setq PointY1 (- PointY1 StandardY))
        (if (< PointX1  0) (setq PointX1 (* PointX1 -1)))
        (if (< PointY1  0) (setq PointY1 (* PointY1 -1))) 
       (setq PointXY1 (strcat  (rtos PointX1  2 3) “” “,” (rtos PointY1 2 3)”,”)) 
        (setq re_text (write-line  PointXY1   file_open))
 )
(setq re_text (write-line “Close” file_open))   
(close file_open)