Which closed LWpolyline is largest?

In one of my routines a set of enclosed LWpolylines are created. One of
them encloses all the others and I would like to know (automatically, of
course) which of them it is. I suppose I could place them into a list,
cycle through that list, getting the area of each, one by one. Whichever
has the larger area would be the boundary of them all.

Is there a more elegant way?

Len Miller

 

I'm supposing there's no elegant way so for those other bunglers like me
(since there have been no responses till now), here's what I got to work:

(setq WithinDex 0
BigArea 0
AreasList nil
ObjEnt nil
ObjArea nil
)
(repeat (sslength PolysWithin)
(setq EntName (ssname PolysWithin WithinDex))
(setq
ObjArea (vlax-curve-getArea (vlax-ename->vla-object EntName))
)
(setq AreasList
(cons
(list EntName ObjArea)
AreasList
)
)
(if (> ObjArea BigArea)
(setq BigArea ObjArea
BigEnt EntName
)
)
(setq WithinDex (1+ WithinDex))
)

 

Hi Len

Code:

(defun MeGetBigArea (Sst / CurEnt TmpAre TmpLst)
(while (setq CurEnt (ssname Sst 0))
(setq TmpAre (vlax-curve-getArea (vlax-ename->vla-object CurEnt)))
(if (> TmpAre (car TmpLst)) (setq TmpLst (cons TmpAre CurEnt)))
(ssdel CurEnt Sst)
)
(cdr TmpLst)
)

Cheers

 

Thanks, Juerg. It works great as I suspected it would.
Len Miller

 

Hi Len

<g> you are welcome...¦-)

Cheers