an AutoLISP routine that moves selected objects to the nearest point on an imaginary line between two points