Ronjonp & Johnathon I just looked at (setq ss (ssget ":L" '((0 . "LINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE,SPLINE")))) in code the line is only one with no area. But for reliability a check for area property is worthwhile.
I use vlax-curve-getarea since it can cover more object types and it can be passed an ename
(defun _getarea (e / a)
(if (vl-catch-all-error-p (setq a (vl-catch-all-apply 'vlax-curve-getarea (list e))))
0.
a
)
)
;; (_getarea (car (entsel)))