Macro that can find and delete double multiple lines

Hi 

I would like to know if anyone of you have a macro that could find and delete multiple, identical lines laying on top of each other exept for one line. I'm working with laser cutting and sometimes we have a drawing with maybe 2000 thousand lines. If there are more lines laying on top of each other. Lets say 2 or 3 the laser cutter will cut 4000 or 6000 lines. Today we remove the excess lines manually but it could be nice with a tool that by one click could remove them. 

Hope that some of you can help me. 

Kind Regards

Jonas