an AutoLISP routine that sets the current color, linetype, layer, and polyline thickness to match a selected entity