What menu groups loaded?

With lisp/vlisp, how can I tell what menugroups are already loaded? I want
to load an additional menu if it's not already loaded.

Thanks,
Mark

 

; retrieve a list of loaded menu groups
; return: list of strings or nil
(defun getMenuGroupNames (/ names)
(vlax-for menu (vla-get-menugroups (vlax-get-acad-object))
(setq names (cons (vla-get-name menu) names))
)
(reverse names)
)

 

Mark

;
; -- Function VxGetLoadedMenus
; Returns a list of all loaded Menufiles and Groups.
; Copyright:
; ©2000 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
; --- =
; Return [Typ]:
; > Dotted pair list '(("MenuFile" . "MenuGroup")...)

• 
  ; Notes:
  ; None
  ;
  (defun VxGetLoadedMenus ( / MnuLst)
  (vlax-for Obj (vla-get-MenuGroups (vlax-get-acad-object))
  (setq MnuLst (cons
  (cons
  (vla-get-MenuFileName Obj)
  (vla-get-Name Obj)
  )
  MnuLst
  )
  )
  (vlax-release-object Obj)
  )
  (reverse MnuLst)
  )
  
  Cheers

 

Thank you both,
Mark

 

This routine seems to cause an Access Violation every once in a while:

; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on exception
; error: Exception occurred: 0xC0000005 (Access Violation)
; error: Exception occurred: 0xC0000005 (Access Violation)

Does it need a release?

 

Never mind. Scrolled down a bit...