텍스트 간격 띄우기 리습 수정좀 부탁드릴게요

위에 사양표 있으니 따로 안적어도 되겠죠? ㅎㅎ;

어제 텍스트 간격띄우기 올려놓고서 혼자 끙끙 헤메다 비슷하게 나마 만들긴했는데
제가 원하는대론 안되서 수정 좀 부탁드려볼까하고 글남겨 봅니다

(DEFUN C:INO()
  (setq a (entsel))
  (setq var (entget (car a)))
  (setq as (assoc 11 var))
  (setq as#1 (cdr as))
  (setq x (nth 1 (assoc 11 var)))
  (setq y (nth 2 (assoc 11 var)))
  (setq sel (list x y))
  (while
  (setq AS (getstring “nEnter <5/8> : “))
  (setq AS (strcase As))
  (if (= AS “5”)
    (progn
    (setq sel2 (- y 5))
  (setq sel3 (list x sel2))
  (command “copy” a “” sel sel3)))
    
  (if (= AS “8”)
    (progn
    (setq sel2 (- y 8))
  (setq sel3 (list x sel2))
  (command “copy” a “” sel sel3)))
  ))

Enter <5/8> : 여기에 해당 숫자를 넣으면 그 간격만큼 복사가 되긴하는데요
한번으로 끝나서 의미없는 리습이네요 ㅠㅠ
복사가된 위치에서 연속적으로 늘리고 싶은데 어떻게 짜야될까요?

도움요청드립니다 ~