;; | ----------------------------------------------------------------------------
;; | TX_GetAllStyles
;; | ----------------------------------------------------------------------------
;; | Function : Returns all defined text styles in current drawing
;; | Arguments: None
;; | Returns  : None
;; | Action   : Returns all currently defined styles in drawing
;; | Updated  : February 22, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun TX_GetAllStyles( / Lst Lst1 )

(setq
	Lst (cadr (MI_TblData "STYLE"))
	Lst1 '()
)
(foreach tmp Lst
	(setq tmp (LI_item 2 tmp))
	(if (not (ST_fsrch tmp "|"))
		(setq Lst1 (cons tmp Lst1))
	)
)
(if Lst1
	(setq Lst1 (acad_strlsort Lst1))
)
Lst1
)