면적구하는 리습 수정 좀 부탁드립니다.

제가 쓰고 있는 면적제는 리습인데 뭐가 잘못 됐는지 면적이 구해지질 않네요..
고수님들의 조언좀 부탁드립니다.

(defun c:TW ()
   (setq a (getvar “OSMODE”))
   (setvar “OSMODE” 0)
   (setq p1 (getpoint “nSelect Object or internal point: “))
   (command “BPOLY” p1 “”)
   (command “AREA” “E” “L”)
   (setq are (rtos (getvar “AREA”) 0 0))
   (setq p2 (getpoint “nPick text base point:”))
   (setq p3 (getstring “nWrite text height:”))
   (command “ERASE” “L” “”)
   (command “TEXT” “m” p2 p3 “0” are)
   (setvar “OSMODE” a)

캐드에서 뜨는 에러 메세지도 함께 적어 봅니다.
Command: tw
Select Object or internal point: ; error: bad argument value: rtos mode: 0

고수님들 많은 조언 부탁드려요….