How to merge the multiple overlap shapes by single click

I would try replacing the following:

s1 = car(shapes)

s2 = cdr(shapes)

with the code below:

(setq cnt 0)
foreach(shp shapes
when(shp->nSegs > cnt
(setq cnt shp->nSegs)
(s1 = shp)
)
)
s2 = remq(s1 shapes)

Hi David,

Thanks for the code. I have already tried the same but the problem is , Assume i have 4 shapes in the net so Shape dbid is (S1_db , S2_db, S3_db ,S4_db). While running the code first two shapes are merged and created the merged shape so the DBID had changed it is not in the shapes list. So that i need to run the code multiple times to merge all the shapes. 

Regards,

karthik

I duplicated your issue this morning, try replacing:

s_primary = axlShapeMerge(s1 s2 'quiet)

with the following code:

(s_result = axlShapeMerge(s1 s2 'quiet))
foreach(shp s2 unless(shp->nSegs (s2 = remq(shp s2))))
while(length(s2) > 0
when(s_result if(listp(s_result) then (s1 = car(s_result)) else (s1 = s_result)) (s_result = axlShapeMerge(s1 s2 'quiet)))
foreach(shp s2 unless(shp->nSegs (s2 = remq(shp s2))))
)

Thanks David!!  It's working Well.

Hi Karthik,

Can you upload the complete working code and the way to execute it.