Untested as I fortunately don't have any to test it on I can't say if either of these work, but they do not remove Layer States.
From the Without a Net blog LMANKILL.LSP will remove all Express Tools LMAN layer states from the current drawing.
Code:
(defun C:LMANKILL (/ lyr ent cnt)
(while (setq lyr (tblnext "layer" (not lyr)))
(setq ent (entget (tblobjname "layer" (cdr (assoc 2 lyr)))'("RAK")))
(if (and ent (assoc -3 ent))
(progn
(setq ent (subst '(-3 ("RAK")) (assoc -3 ent) ent))
(entmod ent)
)
)
)
(princ)
)
or from http://forums.autodesk.com/t5/autoca...ce/td-p/360300 you could put
Code:
(
(lambda (/ lay ent)
(while (setq lay (tblnext "layer" (not lay)))
(if (and (setq ent (entget (tblobjname "layer" (cdr (assoc 2 lay))) '("RAK")))(assoc -3 ent))
(entmod (subst '(-3 ("RAK")) (assoc -3 ent) ent))
)
)
)
)
(princ "Layer states cleared.")
(princ)
in your ACADDOC.lsp file