(defun C:AH ( / pt1 a1 aa)
 (setq aa 0)
 (setq pt1 (getpoint "\nPick a point within boundary: "))
 (setq pt2 pt1)
(while (/= pt1 nil)
 (command "-boundary" pt1 "")
 (command "_AREA" "O" "L")
 (command "erase" "last" "")
 (setq Temp1 (getvar "area"))
 (setq bb Temp1)
 (setq aa ( + aa bb))
(setq pt1 (getpoint "\nPick a point within boundary: "))
)
(setq aa (rtos (* aa 1.0) 2 2))
(command "text" pt2 "3" "" aa)
(command "-bhatch" "Properties" "ANSI31" " ")

)

(defun C:HA ( / pt1 pt2 pt3 a1 aa)
 (command "-bhatch" "Properties" "ANSI31" " ")
)