Listing multiple pline area w/out picking each one, just the areas
Listing multiple pline area w/out picking each one, just the areas
(OP)
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





RE: Listing multiple pline area w/out picking each one, just the areas
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
RE: Listing multiple pline area w/out picking each one, just the areas
RE: Listing multiple pline area w/out picking each one, just the areas
"polyarea.lsp"
RE: Listing multiple pline area w/out picking each one, just the areas
(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)
)