Assuming OOTB Ribbon components:
Code:
(defun c:HH (c:GoHome))
(defun c:GoHome ()
(command
"._+ribbon"
(if (wcmatch (getvar 'roamablerootprefix) "*C3D*")
"CIVIL.ID_Civil3DHome" ; c3d
"ACAD.ID_TabHome" ; 2d
;;; "ACAD.ID_TabHome3D" ; 3d
)
)
(princ)
)
------------------------------
[Edit] - There are only two ways of setting a specific RibbonTab as current that I know of. The first is to use the code above, which is dependent on the +RIBBON Command, and inherently not usable within a LISP Reactor by definition.
If using the code above (a second, manual step) is insufficient, then you can step up into .NET API, as shown here.
[Edit] - After rereading that post, I recall wanting to implement a pseudo-named 'CRIBBONTAB' Custom System Variable for this back in 2012, but that wasn't possible until 2015. I will circle back to this at my soonest convenience.