I use Lee Mac's Steal from Drawing to import Dimension Styles from my default template file with this macro:
Code:
^C^C^P(or C:Steal (load "StealV1-8.lsp"))(Steal (strcat (vl-filename-directory (getenv "QnewTemplate")) (chr 92) "AutoCAD Template" (chr 92) "Templates.dwt") '(("Dimension Styles"("*"))))) .regen
It could easily be added to acaddoc.lsp and used to import the Dimension Styles you prefer from one of your templates if what you want is to have them available in whatever drawing you open.
Creating Dimension Style overrides to the current style by modifying a Dimension variable looks messy and can be unpredictable especially when copying from one drawing to another.