2007 까지 잘쓰던 면적리습이 2008에선 안되네요

2007 까지 잘쓰던 면적리습이 2008에선 안되네요 원인이 뭘까요?

(defun c:aa(/ cmd a m2 py z pt h)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setq o (getvar “osmode”))
(setvar “osmode” 104)
(princ “n>>>>[EASY-CAD]면적계산을 원하는 Polyline 선택. “)
(command “area” “e” pause)
(setq a (getvar “area”))
(setq m2 (/ a 1.0e+06))
(setq py (* m2 0.3025))
(setq m2 (rtos m2 2 4))
(princ “n Area [M2] : “)
(princ m2)
(princ “n Area [PY] : “)
(princ py)
(princ “n>>>> [EASY-CAD] 결과를 도면에 기입하겠습니까 ? “)
(setq z (strcase (getstring)))
(if (or (= z “”) (= z “Y”))
(progn
(setq pt (getpoint “n>>> Text Point : “))
(SETQ H (GETVAR “TEXTSIZE”))
(prompt “n>>> Text Height <")
(princ H)
(princ “> : “)
(setq Z (getdist))
(if Z
(setq H Z)
)
(COMMAND “TEXT”
(SETQ Z PT)
(SETQ Z H)
(SETQ Z 0.0)
(SETQ Z m2)
)
)
)
(SETVAR “CMDECHO” 1)

(setvar “osmode” o)
(PRIN1)
)