Quick adding of multiple closed polyline areas

[CBLENDERMANN]

Hi,
I am working on large site development with lots of independent landscaped areas.
I currently use the AREA command routine to add them all up.
Does anybody know of a routine that would allow me to select all the closed polylines and return their total area?

Thank you for any input in that matter
Cord Blendermann

[mjfarrell]

Cord,

If you had access to MAP you could query all those areas
and export the results to excel and or label them in about 45 seconds.
I know you asked for lisp, this is just another option.

[CBLENDERMANN]

Thanks for the replies, the LISP routine worked great.
Good Day to ALL
Cord b.

[peter]

Another way using activex and including circles and ellipses

Peter Jamtgaard



(defun C:plArea (/ intCount entSelection lstEntity objSelection
ssSelections )
(princ "\nSelect Polylines: ")
(setq ssSelections (ssget (list (cons 0 "*polyline,circle,ellipse")))
sngTotal 0
)
(repeat (setq intCount (sslength ssSelections))
(setq intCount (1- intCount)
entSelection (ssname ssSelections intCOunt)
objSelection (vlax-ename->vla-object entSelection)
)
(setq sngTotal (+ sngTotal (vla-get-area objSelection)))
)
(princ "\n")
(princ sngTotal)
(princ " sq. inches")
(princ "\n")
(princ (/ sngTotal 144.0))
(princ " sq. feet")
(princ)
)

[susanr]

Is there a way to only choose the area of a polyline on a certain layer? I am assuming (because I am fairly new to this) that the 0 is dxf for type of entity. How would I query for all polylines', circles' and ellipses' area on the layer FPL-Area? Thanks. I hope this makes sense.

Sassy

[rkmcswain]

Is there a way to only choose the area of a polyline on a certain layer? I am assuming (because I am fairly new to this) that the 0 is dxf for type of entity. How would I query for all polylines', circles' and ellipses' area on the layer FPL-Area? Thanks. I hope this makes sense.

Sassy

Rather than add on to a 3.5 year old thread, you might have better luck posting a new thread.

But to answer your question with psuedocode

Use (ssget) with filters to filter out polylines, circles and ellipses on the layer FPL-Area layer.
Then iterate this selection set, querying the area of each object and adding to the total.

[susanr]

Thank you.

Sassy