;; | ----------------------------------------------------------------------------
;; | MI_GetActiveProfile
;; | ----------------------------------------------------------------------------
;; | Arguments: (none)
;; | Function : Returns the current profile in use
;; | Updated  : November 11, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetActiveProfile ( / acadApp prefObj cProfiles)
(setq
	acadApp   (vlax-get-acad-object)
	prefObj   (vla-get-Preferences acadApp)
	cProfiles (vla-get-Profiles prefObj)
)
(vla-get-ActiveProfile cProfiles)
)