add areas of multiple selected polygons

[Darren Allen]

Looking for lisp to add accumulated areas of multiply selected polygons. Please advise, Thanks

[BlackBox]

Looking for lisp to add accumulated areas of multiply selected polygons. Please advise, Thanks

There are many out there, can you be more specific on what types of Objects you're wanting to be able to select, and what industry you're in?

For example, here's one I use in Civil:

(vl-load-com)

(defun c:AddArea (/ area)
  (if (ssget "_:L" '((0 . "CIRCLE,HATCH,*POLYLINE")))
    (progn
      (vlax-for	x (vla-get-activeselectionset acDoc)
	(setq area (cons (vla-get-area x) area))
      )
      (prompt (strcat "\nTotal area: "
		      (rtos (setq area (apply '+ area)) 2 2)
		      " SF | "
		      (rtos (/ area 9.0) 2 2)
		      " SY | "
		      (rtos (/ area 43560.0) 2 2)
		      " AC "
	      )
      )
    )
  )
  (princ)
)

Cheers

[Darren Allen]

There are many out there, can you be more specific on what types of Objects you're wanting to be able to select, and what industry you're in?

For example, here's one I use in Civil:

(vl-load-com)

(defun c:AddArea (/ area)
  (if (ssget "_:L" '((0 . "CIRCLE,HATCH,*POLYLINE")))
    (progn
      (vlax-for	x (vla-get-activeselectionset acDoc)
	(setq area (cons (vla-get-area x) area))
      )
      (prompt (strcat "\nTotal area: "
		      (rtos (setq area (apply '+ area)) 2 2)
		      " SF | "
		      (rtos (/ area 9.0) 2 2)
		      " SY | "
		      (rtos (/ area 43560.0) 2 2)
		      " AC "
	      )
      )
    )
  )
  (princ)
)

Cheers

Thank you BlackBox, I am also and new to civil using Civil 3D 13. I am doing the cross cut calculations for drain ditch clean out. "Bpoly" is creating the polygons but I am currently selecting each one and adding on calculator and then placing in spreadsheet. Time consuming. Wish to speed up process. Any advise? Thanks

EDIT POST: This is all great, Thanks for your help but I have stumbled upon the ACAD command "AA" which when following prompts allows for the adding or subtracting of selected object areas. DAH!!!

[BlackBox]

This is just a test............

[Edit] - I've been trying for the past few days to post a reply, and keep getting an error. Hope to have this resolved soon.