Automatic layer

I am searching for a LISP or VBA utility that would force the layer for specific object automatically. E.g. put all circles on a CIRCLE layer, set TEXT layer for all texts I draw etc. What I understand, reactors are the right thing for this. Is there any such reactor with configurable options?

A better way is to maybe set up an office drafting standard and use menu's and office commands to draw objects this way its always adhered to.

I dealt with one of the worlds biggest companies and they were doing a remodel of every single company outlet hundreds to be changed their head drafty removed the autocad menu and replaced it with a draw objects menu so every drawing sent world wide would be identical anyone loading another menu was advised heavily not to do it again.

So cl = circle would draw a circle on correct layer (toolbar !) say tt for text you can reprogram autocad commands type text something else happens but its simple to add new commands.

Just ending its pretty easy to change every circle to say 1 layer just use "filter" this would fix up those not done right.

example

(defun c:cl ()

(setvar "clayer" "circles")

(command "circle")

)

Another way just thought of it you can edit the toolbar commands so just add (setvar "clayer" "circles") to circle toolbar option command. make sure every one uses toolbar