;; | ----------------------------------------------------------------------------
;; | MI_AssignClrLty
;; | ----------------------------------------------------------------------------
;; | Function : Assign a given color and linetype to an object
;; | Arguments: 'Clr' - Color to assign
;; |                    If nil, color is assumed to be BYLAYER
;; |            'LTy' - Linetype to assign
;; |                    If nil, linetype is assumed to be BYLAYER
;; |
;; | Returns  : nil
;; | Updated  : November 5, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_AssignClrLty( ename Clr Lty / entl )

(setq entl (entget ename))
(if entl
(progn
	(if (not Clr) (setq Clr "BYLAYER"))
	(if (not Lty) (setq Lty "BYLAYER"))
	(command "._ChProp" ename "" "_Color" Clr "_LType" LTy "")
))
)