offset lisp 수정부탁드립니다

(defun c:oe ()
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(if (null dist)
(setq dist 1)
)
(setq d (getreal (strcat “n>> offset 할 거리를 입력하세요 <” (itoa (fix dist)) “>: “)))
(if (null d)
(setq d dist)
)
(setq e (entsel “n>> 객체를 선택하세요 :”))
(prompt “n>> offset 방향을 클릭하세요 : “)
(while (null e)
(setq e (entsel “n>> 객체를 선택하세요 :”))
(prompt “n>> offset 방향을 클릭하세요 : “)
)
(while (not (null e))
(command “offset” d e pause “”)
(command “erase” e “”)
(setq dist (fix d))
;; (setq e (entsel “n>> 계속 작업하려면 객체를 선택, 아니면 엔터(or 스페이스바)를 치세요 :”))
;; (prompt “n>> offset 방향을 클릭하세요 : “)
)
(setvar “cmdecho” cmd)
(prin1)
)
이렇게 두군데를 막으니 다시 물어보는것은 막았는데
command: 가 안나오고 ” >>offset 방향을 클릭하세요” 가 나옵니다
한번더 수정부탁드립니다

–>
간단하게 설명드리면  원래 사각형을 offst 해서 하나더 만들고 나서
원래 사각형은 지우고
바로 그냥 명령프람프트가 나오도록 해주세요
그냥 한번만 하고 끝내도록 해주세요
<–