(DEFUN C:GENERAL (/ ss)
(command "LAYER" "M" "E-LITG" "C" "30" "" "")
(command "LAYER" "M" "E-LITA" "C" "30" "" "")
(if
(setq ss
(ssget "x"
'(
(-4 . "<OR")
(2 . "TYPE_110")
(2 . "TYPE_122")
(2 . "type_120")
(-4 . "OR>")
)
)
)
(progn
(setq cntr 0)
(while (setq ent (ssname ss cntr))
(setq entlst (entget ent))
(setq entlst
(subst
(cons 8 "0") ; change layer name here
(assoc 8 entlst)
entlst
)
)
(entmod entlst)
(setq cntr (1+ cntr))
)
)
)
(PRINC)
)