면적 구하는 lisp 캐드 2008에서 리습이 안먹어요 도와주세요

(defun c:area(/ p1 l1 p2 area pyung)
(set)
(setvar “cmdecho” 1)
(if (= thg nil)
(setq thg (getvar “textsize”))
)
(setvar “osmode” 0)
(setq p1 (getpoint “nPick point:”))

(setq l1 (getreal (strcat “nNew height <“(rtos thg)”>:?”)))
   (if (= l1 nil) (setq thg thg) (setq thg l1))

(setq p2 (polar p1 (dtr 270) (* thg 1.5)))

(command “layer” “t” “면적구획” “m” “면적구획” “c” “1” “면적구획” “”)
(command “bpoly” p1 “”)
(setq e1 (entlast))
(command “area” “e” e1)
(setq area  (/ (GETVAR “AREA”) 1000000)
            area  (RTOS area 2 2)
)
(command “layer” “t” “문자” “m” “문자” “”)
(COMMAND “TEXT” “J” “MC” p1 thg “0” area)
(command “layer” “t” “문자2” “m” “문자2” “”)
(COMMAND “TEXT” “J” “MC” p2 thg “0” pyung)
(reset)
)