Wire Color / Layer mover

I was tired of changing the all the properties of the wires in AutoCAD Electrical to what I wanted them to be, so I made an AutoLisp program to automatically change the line to properties I wanted. It changes the color, linetype, lineweight, etc to Bylayer, then changes the line to the layer that pertains to the wire properties. It also changes the cursor color to the selected wire color in case I forgot what color I was on.

[@LeCodeDaVinci]

Nice. Can you share this lisp whit me ?