Total Area Autocad Lisp

The most effective "Total Area" LISPs, such as the widely cited

(defun C:TAREA ( / ss total counter obj area_list) (princ "\nSelect objects to calculate total area: ") (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,HATCH,REGION,*POLYLINE")))) total area autocad lisp