Try this one...it may help you.....
;;---------------------------------------------------------------------------
;; AREA.LSP
;;===========================================================================
;;DESCRIPTION: RETURN SUM OF AREAS OF SELECTED CLOSED POLYLINES
;;
;;START COMMAND........ AAT
;;
;;Select boundaries one at a time....i.e. select one ENTER
;; select next ENTER
;;When finished selecting hit ENTER
;;
;;WRITTEN BY: ALAN CULLEN March 2005
;;
;;
(defun c:aat ()
(princ "\n TOTAL AREAS OF SELECTED BOUNDARIES - March 2005 - Alan CULLEN")
(princ)
(setq ocmd (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq test 1)
(setq aatotal 0)
(setq no 0)
(while test
(prompt "\n Select string....")
(setq ss (ssget))
(if (/= ss nil)
(progn
(command "AREA" "O" ss)
(setq aa (getvar "area"))
(setq aatotal (+ aatotal aa))
(setq no (+ no 1))
(command "CHANGE" ss "" "P" "C" 4 "")
)
(progn
(setq test nil)
)))
(setq aatxt (rtos aatotal))
(setq notxt (rtos no 2 0))
(princ (strcat"\n AREA TOTAL = "aatxt" No of plines = "notxt))
(setvar "cmdecho" ocmd)
(princ)
)