an AutoLISP routine that sets the current layer, linetype, pline width, textstyle and color based on a selected entity.