Refine.lsp

This routine will add vertices to the midpoints of lwpolyline segments. There is very little error checking; it will currently choke on 3d (open space) polylines, though this capability could be added fairly easily. It might also have problems on sets of lwpolylines created in different User Coordinate systems. I'll address these contingencies as they are needed.
When the process is complete, the user can choose to erase the originals (the default is to keep them, in which case, they become the user's "previous" selection set - making it easy to retire them to another layer, etc.)
screenshot.png

view code