Lisp file for finding midpoint of a pline with several segments

It defines the command MidPoly which does the trick. I mean a small program which goes through all the segments and calculates the distances and then finds the midpoint along the pline.

Credits : For Dimention Technologies