Set a desired dimension style as current style without going into the dialogue?

Is there a shortcut for setting a certain dimstyle as default similar to right clicking 'set current as default' (which is available for some features) without going into the dialogue box? It would be fine to do that if the author of the drawings didn't have 50 with similar names. Thanks

-dimstyle stylename hopefully works with Architecture

I use this lisp and a macro attached to a button. ^C^Csetdim.

Select an existing dimension object and run SetDim to make it current. It also switch current layer to dimension's layer.

(defun C:SETDIM (/ e)
 (if
   (setq e (ssget ":E:S" '((0 . "DIMENSION"))))
   (progn
     (setq e (entget (ssname e 0)))
     (command "DIMSTYLE" "R" (cdr (assoc 3 e)))
     (setvar "CLAYER" (cdr (assoc 8 e)))
     )
 )
(princ)
)