;; | ----------------------------------------------------------------------------
;; | MI_GetAllLTypes
;; | ----------------------------------------------------------------------------
;; | Function : Returns all loaded linetypes in current drawing
;; | Arguments: None
;; | Returns  : A list  of linetype names
;; | Action   : Returns all currently loaded linetypes in drawing
;; | Updated  : March 23, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetAllLTypes( / Lst Lst1 )

(setq
	Lst (cadr (MI_TblData "LTYPE"))
	Lst1 '()
)
(foreach tmp Lst
	(setq Lst1 (cons (LI_item 2 tmp) Lst1))
)
(reverse Lst1)
)