How to find and join parallel lines automatically

[borijarim]

Hello, i assemble drawings done by many people. Sometimes as they draw over the same road (for example), they dont necessarily produce one seemingly continuous line. Sometimes it's parallel or a bit off. 

The criteria for correction: 2 lines in the same layer, same direction often very close (i can estimate a tolerance)

Do you think there's some command routine or lisp that finds and correct this? Without having to manually select them?

I'm not very familiar with coding so i hope someone clever here can help me out. I have attached the test file.

Thank you sincerely.

Reem.

[hak_vz]

If lines to join are in separate layer you can simply isolate some layer. Then use command pedit with option join and add some larger fuzz value that greater than distance between line segments to join but smaller then distance between joined polylines. 

Command: PEDIT
Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 7 found
Select objects:
Convert Lines, Arcs and Splines to polylines [Yes/No]? <Y>
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>: 150
5 segments added to 2 polylines
.....

[Sea-Haven]

The road is not off a bit what has happened is the surveyor has gone past his/her last point on a string sequence, that point may be correct and a true road edge point. Our surveyors carried a wax crayon and would mark the road at last point so would actaully have a different problem a gap between road egdes, Ok our guys 40 years doing it were smarter and would note the previous field string code when continuing so no gap. Import CIV3D etc perfect no fix ups. Or stop square to a point to make sure it did not happen.