;; | ----------------------------------------------------------------------------
;; | MI_GetDisplayLType
;; | ----------------------------------------------------------------------------
;; | Function : Get the display linetype of an object
;; | Arguments: 'ename' - Object name
;; | Returns  : 'LType' - The LineType which is the display linetype of the
;; |                      object
;; |
;; | Comments : The display linetype is either the actual assigned linetype of
;; |            the object or the BYLAYER linetype if it is not assigned an
;; |            actual linetype.
;; | Updated  : January 24, 2003
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetDisplayLType( ename / entl LType )

(setq
	entl  (entget ename)
	LType (LI_item 6 entl)
)
(if (not LType)
	(setq LType (LI_item 6 (tblsearch "LAYER" (LI_item 8 entl))))
)
(strcase LType)
)