Need some help making this routine work for creating a layer with true color.
(ARCH:MLYR "NEW-MFC" 247,28,8 "Continuous" "0.01")
(defun ARCH:MLYR (LA LC LT LW)
(ARCH:LINETYPE)
(command "cecolor" "bylayer")
(setvar "cmdecho" 0)
(if (tblsearch "layer" LA)
(progn (command "layer" "Thaw" LA "") (command "layer" "Set" LA ""))
(progn (command "layer" "Make" LA)
(command "Color")
(command "Truecolor" LC "")
(command "Ltype" LT "" "LWeight" LW "" "")))
(command "cecolor" "bylayer")
(setvar "cmdecho" 1)
(princ))