I have a bunch of lines (this may look familiar)…

I want to close the gaps. I have been using Curve.ExtendStart and Curve.ExtendEnd… Then Shatter (thanks to @sovitek)

but I wonder if it’s possible to just extend the lines to intersect instead.

These are the lines I’m using if you want some to play with (but I’d like it to work for any bunch of lines)

Line(StartPoint = Point(X = -7371.266, Y = 2648.234, Z = 4000.000), EndPoint = Point(X = -196.266, Y = 2648.234, Z = 4000.000), Direction = Vector(X = 7175.000, Y = 0.000, Z = 0.000, Length = 7175.000))

Line(StartPoint = Point(X = -7371.266, Y = -4101.766, Z = 4000.000), EndPoint = Point(X = -7371.266, Y = 2298.234, Z = 4000.000), Direction = Vector(X = 0.000, Y = 6400.000, Z = 0.000, Length = 6400.000))

Line(StartPoint = Point(X = 3678.734, Y = -4101.766, Z = 4000.000), EndPoint = Point(X = -7021.266, Y = -4101.766, Z = 4000.000), Direction = Vector(X = -10700.000, Y = 0.000, Z = 0.000, Length = 10700.000))

Line(StartPoint = Point(X = 3678.734, Y = 4898.234, Z = 4000.000), EndPoint = Point(X = 3678.734, Y = -3751.766, Z = 4000.000), Direction = Vector(X = 0.000, Y = -8650.000, Z = 0.000, Length = 8650.000))

Line(StartPoint = Point(X = 878.734, Y = 2648.234, Z = 4000.000), EndPoint = Point(X = 878.734, Y = -3751.766, Z = 4000.000), Direction = Vector(X = 0.000, Y = -6400.000, Z = 0.000, Length = 6400.000))

Line(StartPoint = Point(X = -546.266, Y = 2648.234, Z = 4000.000), EndPoint = Point(X = -546.266, Y = 5248.234, Z = 4000.000), Direction = Vector(X = 0.000, Y = 2600.000, Z = 0.000, Length = 2600.000))

Line(StartPoint = Point(X = -196.266, Y = 5248.234, Z = 4000.000), EndPoint = Point(X = 3678.734, Y = 5248.234, Z = 4000.000), Direction = Vector(X = 3875.000, Y = 0.000, Z = 0.000, Length = 3875.000))

Line(StartPoint = Point(X = -196.266, Y = 2648.234, Z = 4000.000), EndPoint = Point(X = 528.734, Y = 2648.234, Z = 4000.000), Direction = Vector(X = 725.000, Y = 0.000, Z = 0.000, Length = 725.000))