면적/평수 리습 오류가 났습니다 도와주세요

안녕하세요^^ 

어제까지만해도 리습이 잘 됐었는데,

어떠한 설정도 바꾼게 없는데 갑자기 리습이 되지 않습니다.ㅜㅜ





현재 가지고 있는 리습은 저거구요,


(defun c:ar(/ d_s ent_p ar_1 ar_2 py_1 py_2 t_p n_p)
  (graphscr)
  (setvar “cmdecho” 0)
  (setq d_s (getvar “dimscale”))
  (command “units” “” “8” “” “” “” “”)
  (setq ent_p (entsel “n PLINE을 선택하세요!! :”))
  (command “area” “e” ent_p)
  (setq ar_1 (/ (getvar “area” ) 1.0e+06))
  (setq ar_2 (rtos ar_1 2 3))
  (setq py_1 (* ar_1 0.3025))
  (setq py_2 (rtos py_1 2 3))
  (command “units” “” “0” “” “” “” “”)
  (prompt “nArea (M2):”)(princ ar_2)
  (prompt “nArea (Py):”)(princ py_2)(princ)
  (setq t_p (getpoint “nText 삽입 Point:”))

  (if (not t_h) (setq t_h 500))
  (setq t_h1 (getreal (strcat “nText Height 입력<” (rtos t_h) “>:”))) 
  (if t_h1 (setq t_h t_h1))

  (setq n_p (list (car t_p) (- (cadr t_p) (* t_h 2))))
  (command “text” t_p t_h “” (strcat “* Area (M2) : ” ar_2))
  (command “text” n_p t_h “” (strcat “* Area (Py) : ” py_2))
  (setvar “cmdecho” 1)
  (princ)
)





리습을 실행하면 원래 M2,Py 가 떴었는데 지금은 저런식으로 나오네요

뭐가 문제일까요! 고수님들 알려주세요 ㅜㅜ 부탁드립니다.