Lisp that caluculates area of polylines on a layer - tweak needed

[mpa-la]

Hello all, someone in the forums wrote us the handy lisp attached.  The way we use it is to click a hatch in a legend, and it calculates the area of the polylines in the drawing that are on that layer, then edits the legend text to show the square feet.  There are two lisps in it for two different scales, TAB and TABB.  I just now realized that it only is calculating the area of polylines, and I need it to also include the area of circles and regions (I can't think of anything else that would have an area, let me know if I forgot anything).  Does LWPOLYLINE get all three kinds of polylines?

By the way, I know you can get area from hatches themselves, but we've had issues in the past where they get out of whack, so we prefer using the boundaries that we use to create the hatches.

Anyway, what needs to be edited in this to get it to grab all the different entities that would have an area?

Thanks in advance!

[hak_vz]

Code you've attached is created by @ronjonp.

[mpa-la]

Thanks hak_vz, I should have put that in my message!

[john.uhden]

@mpa-la 

Not to mention that @ronjonp is one of my most highly respected contributors.

And @hak_vz is one of our most diligent historians, and contributors.