;; ! ***************************************************************************
;; ! DM_GetAllDimStyles
;; ! ***************************************************************************
;; ! Function : Returns all defined dimension styles in current drawing
;; ! Arguments: None
;; ! Returns  : A list of strings containing the names of all dimension styles
;; ! Action   : Returns all currently defined dimension styles in drawing
;; ! Updated  : March 19, 1999
;; ! e-mail   : rakesh.rao@4d-technologies.com 
;; ! Web      : www.4d-technologies.com
;; ! ***************************************************************************


(defun DM_GetAllDimStyles( / Lst Lst1 )

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