연속 복사 리습사용시 중간에 엉뚱하게 복사됩니다.

제가 쓰는 연속복사 리습입니다. 상당히 불편한게 기준점 찍고 일정 거리 선정후 스페이스바 클릭한채 누루고 있으면 빠른 시간에 연속복사가 되는데 중간에 엉뚱하게 복사가 됩니다.
예를 들어 객체를 선택하고 기준점 찍고 6000거리 찍고 스페이스바 누르고 있으면 6000간격으로 쭉 복사되다가 5891.12345 이런 식으로 엉뚱한 간격으로 중간에 복사되서 중간부분은 별도로 복사해야하는 번거로움이 생깁니다. 원인과 해결방법을 알수 있을까요?

;;*********************************연속 복사 (cc)********************************

(defun C:cc (/ ent stp edp ifm)
  (setq ent (ssget)
 stp (getpoint “n기준점 지정:”)
 edp (getpoint stp “n두번째점 지정:”)
  )
  (setq dist (distance stp edp)
 ang  (angle stp edp)
 cont 1
 con  0
  )
  (while (= cont 1)
    (command “copy” ent “” stp stp)
    (command “move” ent “” stp edp)   
    (setq stp edp
   edp (polar edp ang dist)
    )
    (setq ifm (strcase (getstring “n종료 <N>”)))
    (if (= ifm “N”)
      (setq cont 0)
    )
    (setq con 1)
  )
  (princ)
)