Here's another way of doing the same thing:
(DEFUN C:litg (/ ss)
(command "LAYER" "M" "E-LITG" "C" "30" "" "")
(if
(setq ss
(ssget "x"
'((2 . "TYPE_110,TYPE_122,type_120,TYPE_125,TYPE_112,type_130-4,type_130-8,type_131-4,type_131-8,type_163,type_180-8,type_184,type_128,type_366,type_495,type_393,type_498,type_498e"))
)
)
(progn
(princ (strcat "\nFound " (itoa (sslength ss)) " blocks"))
(command ".chprop" ss "" "la" "E-LITG" "")
)
)
(PRINC)
)