;; | ----------------------------------------------------------------------------
;; | MI_LoadPartialMenu
;; | ----------------------------------------------------------------------------
;; | Function : Loads a single partial menu into the current menu and appends at
;; |            the end.
;; | Argument : 'menuname' - Menu Group Name
;; | Return   : None
;; | Updated  : November 30, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------

(defun MI_LoadPartialMenu ( menuname / tmp tmp1 tmp2 )
(setq
	tmp nil
	menuname  (MI_RemExt menuname)
	tmp1 (car (MI_SplitPath menuname))
)
(if (= tmp1 "")
	(setq tmp1 menuname)
)

(if (not (setq tmp2 (menugroup tmp1)))
(progn
	(if (findfile (strcat menuname ".mnu"))
	(progn
		(if (member #AcadVer (list 2007 2008 2009 2010))
			(command "._CuiLoad"  menuname)
			(command "._MenuLoad" menuname)
		)

		(if (= #OperatingEnv "AutoCAD")
		(setq
			tmp (strcat "P" (itoa (1+ (MI_GetHighestPullDownMenu))) "=+" tmp1 ".pop1")
			tmp (menucmd tmp)
		))
	)
	(progn
		(alert (strcat "Error: Cannot find " menuname ".MNU not found on the AutoCAD search path."))
		(exit)
	))
)
(setq
	tmp (strcat "P" (itoa (1+ (MI_GetHighestPullDownMenu))) "=+" tmp1 ".pop1")
	tmp (menucmd tmp)
))

(if tmp
	(princ (strcat "\n" menuname ".mnu successfully loaded."))
)
)