AutoLISP routine copies selected objects to a designated layer while retaining their color and linetype