;; | ----------------------------------------------------------------------------
;; | MI_GetSupportPath
;; | ----------------------------------------------------------------------------
;; | Arguments: 'prfName' - Profile Name
;; | Function : Gets the Support path for the specified profile
;; | Updated  : November 11, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetSupportPath ( prfName / acPrfName acadApp prefObj filesObj Path )
(setq Path nil)
(if (member (strcase prfName) (mapcar 'strcase (MI_GetAllProfiles)))
(progn
	(setq acPrfName (MI_GetActiveProfile))
	(MI_SetActiveProfile prfName)

	(setq
		acadApp   (vlax-get-acad-object)
		prefObj   (vla-get-Preferences acadApp)
		filesObj  (vla-get-Files prefObj)
		Path      (vla-get-SupportPath filesObj)
	)
	(MI_SetActiveProfile acPrfName)
)
(alert (strcat "Profile name: " prfName " is not defined in the AutoCAD setup."))
)
Path
)