논노님 옵셋 리습이 2005에서 작동을 안합니다

수정해주신 리습 감사합니다
캐드2005를 사용중인데 실행했을때
오류: no function definition: GEDIST <-메세지가 출력되면서
작동을 하지 않습니다. 번거롭게 해 드려서 죄송하지만
수정이 가능할까요?

(defun c:ff (/ #a #b)
(if #dis
(if(not(setq #a(getdist (strcat “n>>> OFFSET 거리 입력 <" (rtos (* #dis 2.0)) ">:” ))))
(setq #a(* #dis 2.0))
);;if
(setq #a(gedist (strcat “n>>> OFFSET 거리 입력:”)))
);;if
(setq #dis(/ #a 2.0))
(while (setq #b (ssget “:S”))
(command “offset” #dis #b pause “”)
);;while
);;defun