Selected object in segments

This code splits the selected objects into an lwpolyline with a given number of equal-length segments. command: sec (enter) select object: object s1 select: (enter) ..... after selection that turns object into discipline with specific segments (click on object and see difference before and after ....)