Looking for a LISP to evenly space polylines from their end points

[Tamim]

HI, 

I’m working on a CAD drawing that has several parallel polylines, and I’d like to space them out evenly by a fixed distance, but only from their start points.

For example, all the lines begin from point No. 1, and I want to distribute only between line 1 and line 2, keeping the rest aligned. The goal is to spread them equally on the opposite side, similar to how the “Distribute” option works in TEXTALIGN, but for polylines instead of text.

It would be great if the spacing value (for example, 0.2 ft or 0.5 ft) could be entered by the user.

Does anyone know if there’s an existing LISP routine for this, or something close?
Any tips or examples would be really helpful.

line shifting.dwg