;; | ----------------------------------------------------------------------------
;; | MI_GetAllProfiles
;; | ----------------------------------------------------------------------------
;; | Arguments: none
;; | Function : Returns a list string names of all the currently defined profiles
;; |            in the drawing
;; | Updated  : October 17, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetAllProfiles( / profLst acadApp prefObj cProfiles pNames)
(setq
	acadApp   (vlax-get-acad-object)
	prefObj   (vla-get-Preferences acadApp)
	cProfiles (vla-get-Profiles prefObj)
)
(vlax-invoke-method cProfiles 'GetAllProfileNames 'pNames)
(setq profLst (vlax-safearray->list pNames))
)