리습 로드 오류 질문드립니다

안녕하세요
윈도우 10 64비트에 캐드 2012 버전을 쓰고 있습니다.
리습을 여러가지를 쓰는데 모두 appload로 로드하여 사용내역목록과 사용내역에 추가 해놓았습니다.
다른건 다 잘 되는데 면적 재는 리습만 캐드를 재부팅 하면 명령어가 먹질 않네요
그래서 언로드 후 캐드 재부팅 후 다시 로드하여 쓰면 먹힙니다.
그러다 또 캐드를 껐다 키면 그 리습만 안먹히고…ㅠㅠ
다른 리습들은 다 문제가 없는데 그 리습 하나만 그러네요
다른 리습들 살펴봐도 명령어가 중복되지도 않았고요
왜 이럴까요
첨부파일로 면적 재는 리습 올려드릴께요
고수분들 아시면 답변좀 부탁드립니다

(DEFUN C:AY ( )
  (SETVAR "CMDECHO" 1)
  (SETVAR "REGENMODE" 0)
  (setq ts (getvar "textsize"))
  (if (= dw nil) (setq dw 2))
    (setq a (strcat "n현재 설정값(문자높이=" (rtos ts 2 1)
            ",자리수=" (rtos dw 2 0) ")을 변경할까요? [Y/N] : "))
     ;(setq a (strcat "n현재 자리수=" (rtos dw 2 0) ")을 변경할까요? [Y/N] : "))
   (initget "Yes No")
   (setq yn (getkword a))
   (if (= yn "Yes")
     (progn
       (setq a (strcat "n문자높이<" (rtos ts 2 1) ">:")) 
       (setq ht (getdist a))
       (if (= ht nil) (setq ht ts))
       (setq a (strcat "n소수점 자리수을 지정<" (rtos dw 2 0) ">:"))
       (setq tem (abs (getint a)))
       (if (= tem nil) (setq dot dw) (setq dot tem) )
       (setq dw dot)
     )
     ;(setq dot dw)
   (setq ht ts dot dw)
   )
 (setvar "textsize" ht)

  (COMMAND "AREA" "e" pause)
  ;(setvar "lunits" 2)
  ;(setvar "luprec" 2)
  (SETQ PP (GETPOINT "n Pick the point : ")
        ;TS (GETVAR "TEXTSIZE")
        AREA (GETVAR "AREA")
        AA (/ AREA 1000000)
        AREA1 (RTOS AA 2 dot)
        AREA2 (RTOS (* AA 0.3025) 2 dot)
        ;AA (STRCAT  "" AREA1 "㎡ /" AREA2 "PY" "")
        )
  (COMMAND "TEXT" PP ht "0″ AREA1)
  (COMMAND "TEXT" "" AREA2)
  (princ)
)