Extending line to point (multiple)

Hi!

In attachment is input file (dwg1). What I have to do is to connect all the lines to points so that there shall not be "holes" around the point (dwg2). Diametar of "holes" is 0,25m. EXTEND command works very well. LENGTHEN also works when i increase line by 0,25m. But this points which i need connect with lines is about few hunreds.

So summary is that i need fast way or lisp that i can connect (extend) all lines to points like dwg1) so that there shall not be "holes" around the point (like dwg2).

dwg1.dwg

dwg2.dwg

Have you tried to use PEDIT, Join with a fuzz distance of 0.6

This makes a polyline, but exploding this gives you individual lines.

Probably no need for Lisp.

Have you tried to use PEDIT, Join with a fuzz distance of 0.6

 

This makes a polyline, but exploding this gives you individual lines.

 

Probably no need for Lisp.

Sh*t, that really works! Thank you. Just wonder, why is fuzz distance is 0.6?

The fuzz distance is the distance that limits the points that are joined by that amount. As your gap was about 0.5, I chose the fuzz distance at 0.6 to prevent unwanted joinings.