;*******AREA CALCULATOR******
(defun c:aa (/ c a b)
(command "style" "romans" "romans" 8  0.85 "" "" "" "" ) 
(setq os(getvar "osmode"))
(setvar "osmode" 0)
(SETQ p0 (GETPOINT "\n PICK A CLOSED AREA:"))
(command "BPOLY" p0 "")
(COMMAND "AREA" "E" "L" )
(COMMAND "ERASE" "L" "")
(COMMAND "REDRAW" )
(SETQ  A (GETVAR "area"))
(SETQ B (GETPOINT "\n PICK A POINT TO WRITE AREA:"))
(SETQ C (RTOS a))
(COMMAND "COLOR" 3 )
(SETQ Text (strcat "Area=" C))
(COMMAND "TEXT" B "0" (strcat text "mē"))
(COMMAND "COLOR" "BYLAYER" )
(command "style" "italict" "" 0  0.85 "" "" "" "" ) 
(setvar "osmode" os)

(setq w nil )

  
)