(defun C:GetArea
(/ ent myArea pt1 ht scl
) (COMMAND "_layer" "_m" "Area" "_c" "6""" "") (command "-style" "Area" "arial.ttf" "" "" "" "" "") ;turn off the system echo
;set up a variable to hold the accumulated areas
;while the user keeps making a selection
;if an entity was selected and not a point in space
;let AutoCAD get the area of the object...cheap yet effective way out...
;Note: AutoCAD stores the area in the system variable "Area"
;print the area to the command line
;accumulate the area if it exist
)
)
)
;ask for a text insertion point
;print the area in the drawing
;suppress the last echo
)