Listing multiple pline area w/out picking each one, just the areas

[LHA]

How do I list multiple pline areas w/out picking each one, just the areas, not the coordinates.

Remember, amateurs built the ark...professionals built the Titanic. -Steve

 

[TCARPENTER1]

Hi lha,

I'm afraid the area command only accepts one closed polyline per "object" option - how about a quick and dirty lisp or VB macro?

HTH
Todd

 

[IFRs]

You can type "Area" then "Add" then "Object" and pick them. Not sure if it has to be one at a time. If so, a simple LISP will do it.

 

[CarlB]

One place to get a lisp routine for this is

http://www.turvill.com/t2/free_stuff/index.htm

"polyarea.lsp"

 

[IFRs]

Here is a quickie:

(DEFUN C:TA (/ AreaSum)
(setq AreaSum 0)
(prompt "\nSelect all objects to count: ")
(setq ss (ssget))
(while (> (sslength ss) 0)
(setq en (ssname ss 0))
(setq ed (entget en))
(command "area" "e" en)
(setq AreaSum (+ AreaSum (getvar "area")))
(ssdel en ss)
)
(prompt (strcat "\nTotal area is: " (rtos AreaSum 2 3)))
(princ)
)