;; | ----------------------------------------------------------------------------
;; | MI_DeleteProfile
;; | ----------------------------------------------------------------------------
;; | Arguments: 'prfName' - Profile Name
;; | Function : Delete the named profile from the AutoCAD setup
;; | Updated  : October 30, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_DeleteProfile( prfName / pNames acadApp profObj cProfiles prefObj )
(if (member (strcase prfName) (mapcar 'strcase (MI_GetAllProfiles)))
(progn
	(if (/= (strcase prfName) (strcase (MI_GetActiveProfile)))
	(progn
		(setq
			acadApp   (vlax-get-acad-object)
			prefObj   (vla-get-Preferences acadApp)
			cProfiles (vla-get-Profiles prefObj)
		)
		(vlax-invoke-method cProfiles 'DeleteProfile prfName)
	)
	(princ "\nError: Cannot delete a profile that is current.")
	)
)
(alert (strcat "Profile name: " prfName " is not defined in the current AutoCAD setup."))
)
)