Areas from Polylines

Hi guys,

Is there a way to get the area of a closed polyline through LISP? I looked at the association list and couldn't see the area or perimeter listed.

Thanks,
Shaye.

 

After using the "AREA" command for selected entity or by inputting
coordinates,

(setq PL_AREA (getvar "AREA"))
(setq PL_PERIMETER (getvar "PERIMETER"))

 

Or you could try...

(setq obj (vlax-ename->vla-object (car (entsel "Select pline: "))))
(vla-get-area obj)
(vla-get-length obj)

HTH,

Devin

 

(vl-load-com)
(setq ename (car (entsel "\nSelect an object")))
(setq obj (vlax-ename->vla-object ename))
(if (vlax-property-available-p obj 'Area )
(setq area (vlax-get-property obj 'area))
;; else
(princ "\nArea not available"))
(if (vlax-property-available-p obj 'Length )
(setq len (vlax-get-property obj 'Length))
;; else
(princ "\nLength not available"))

-PG.

at the association list and couldn't see the area or perimeter listed.

 

Thanks Alan. That worked great. Thanks for the other posts guys.