;; | ----------------------------------------------------------------------------
;; | MI_CopyProfile
;; | ----------------------------------------------------------------------------
;; | Arguments: 'srcPrfName' - Source Profile Name
;; |            'tgtPrfName' - Target Profile Name
;; | Function : Copy profiles from source to target
;; | Updated  : October 30, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_CopyProfile( srcPrfName tgtPrfName / acadApp prefObj cProfiles )
(if (member (strcase srcPrfName) (mapcar 'strcase (MI_GetAllProfiles)))
(progn
	(setq
		acadApp   (vlax-get-acad-object)
		prefObj   (vla-get-Preferences acadApp)
		cProfiles (vla-get-Profiles prefObj)
	)
	(vlax-invoke-method cProfiles 'CopyProfile srcPrfName tgtPrfName)
)
(alert (strcat "Profile name: " srcPrfName " is not defined in the current AutoCAD setup."))
)
)