LISP code to join lines

Is there a LISP code to join all lines that share endpoints without having to select all the lines? Basically, I want to be able to start the command, select 1 line, then it automatically joins all the segments together into 1 polyline. Thanks!

Why not just use the "_All" parameter with PEDIT _Join command? -David

Why not just use the "_All" parameter with PEDIT _Join command? -David

That seems to work pretty well. Is there perhaps a parameter that just selects all lines touching end point to endpoint?

That seems to work pretty well. Is there perhaps a parameter that just selects all lines touching end point to endpoint?

Try invoking Express tools > Selection tools > Fast select before you join the lines. Or type FS at the command line. It might not be exactly what you want but it might save you time.

. Is there perhaps a parameter that just selects all lines touching end point to endpoint?

Kinda lost me there. PEDIT will only join *LINEs and ARCs that have common endpoints and I'm sure it's filtering is a lot quicker and more accurate than anything we could write. -David

I finally had a chance to play around with my LISP routine and using the pedit "all" parameter and it seems to be working just fine. I just thought that telling it "all" would somehow affect the other polylines in the drawing, but I have not had any problems with it at all. Thanks David! Just what I needed!