LISP to join many lines to a single 3D Pline

This 3PEDIT.lsp just has a "Join function will replace the two 3DPolys with a single 3dPoly" only.

Can someone please help me to have a LISP to join many lines to a single 3D Pline by select one line only if possible. Thanks you.

3PEDIT.LSP

Join2 3D Pline.zip

There's a tool you can purchase

at http://www.4d-technologies.com/geotools/manual/polyline_tool_set_1.htm

that appears to do this - although probably you have to select all lines. I understand you can purchase a few tools rather than the full suite.

Here's another, not free

http://www.black-cad.homepage.t-online.de/pediten.htm

If you have lots of plines and want to join them as a single pline then try explode using window etc to convert back to lines then pedit and use the join option but again use a window to select if things are ok it will join all of them in one go.

Thanks you, the attached LISP file is working very well with 2D by select one object only. It is good if there is a LISP for 3D Pline like the way this LISP done.

1PL.Lsp