;; | ----------------------------------------------------------------------------
;; | MI_ImportProfile
;; | ----------------------------------------------------------------------------
;; | Arguments: 'prfName' - Profile Name
;; |            'regFile' - Reg File Name with path
;; | Function : Exports the named profile into an external reg file
;; | Updated  : October 30, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_ImportProfile( prfName regFile InclPath / pNames acadApp profObj
 prefObj cProfiles )
(if (not (member (strcase prfName) (mapcar 'strcase (MI_GetAllProfiles))))
(progn
	(setq
		acadApp   (vlax-get-acad-object)
		prefObj   (vla-get-Preferences acadApp)
		cProfiles (vla-get-Profiles prefObj)
	)
	(if InclPath
		(setq InclPath :vlax-true)
		(setq InclPath :vlax-false)
	)
	(vlax-invoke-method cProfiles 'ImportProfile prfName regFile InclPath)
)
(alert (strcat "Profile name: " prfName " is already defined in current AutoCAD setup."))
)
)