i actually did a toolbar for us using icon'a or you can use a pull down menu to do the same thing. it also requires doing a little lisp routine for setting the text to the font and height that you need for scale. you can also do the same thing using script files but have to be very careful. below is an example without the script file
Code:
(defun c:aq1 ( )
(setvar "cmdecho" 0)
(command "-style" "ARCHQUIK" "ARCHQUIK.shx" ".09" "1" "" "" "" "")
(prompt "\n\t\t\t\t ***The text style is now set to Archquik for 1:1 scale.")
(princ)
)
(defun c:1TO1 ()
(setvar "cmdecho" 0)
(setvar "dimscale" 1)
(SETVAR "DIMASZ" 0.09)
(setvar "ltscale" 0.25)
(setvar "dimclrd" 256)
(setvar "dimclre" 256)
(setvar "dimclrt" 256)
(setvar "dimblk" ".")
(setvar "dimldrblk" ".")
(setvar "lunits" 4)
(command "-style" "ARCHQUIK" "ARCHQUIK.shx" ".09" "1" "" "" "" "")
(prompt "\n\t\t\t\t ***Drawing setup for 1=1 Scale.")
(princ)
)