Topic: calculating the area of polylines nested polyline

[HasanCAD]

I have a question regarding calculating the area of polylines.
I am writing a LISP routine to calculate the area of a polyline. I have successfully implemented it; however, in some cases, there are nested polylines within the main polyline.
My question is, is there a possibility to obtain the area of each individual polyline (No. 1, 2, & 3) within the main polyline?

Thanks in advance.

[ribarm]

Of course it's possible...

[HasanCAD]

Of course it's possible...

Thats very good.
But, How is this?

[hmspe]

I would do this:

- get the vertices of the outer polyline
- use ssget with "_WP" and '((0 . "LWPOLYLINE")) to get the interior polylines
- apply your area function to each polyline

[BIGAL]

Like this for WP

Code: [Select]

(setq plent (entsel "\nPick rectang"))
(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))
(princ co-ord)

[HasanCAD]

I would do this:

- get the vertices of the outer polyline
- use ssget with "_WP" and '((0 . "LWPOLYLINE")) to get the interior polylines
- apply your area function to each polyline

Thanks hmspe
Working perfect

[HasanCAD]

Like this for WP

Code: [Select]

(setq plent (entsel "\nPick rectang"))
(if plent (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car plent))))))
(princ co-ord)

Thanks BIGAL for the start point.