;; | ----------------------------------------------------------------------------
;; | LA_GetAllLayerStateNames
;; | ----------------------------------------------------------------------------
;; | Function : Returns a list of all named layer states in the current drawing
;; |            document
;; | Arguments: (none)
;; | Action   :  (as explained above)
;; | Updated  : September 7, 2004
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_GetAllLayerStateNames ( / collection NamesLst )

(if (not (vl-catch-all-error-p (setq collection
										(vl-catch-all-apply
											(function	(lambda ()
															(vla-item	(vla-getextensiondictionary
																			(vla-get-layers (AX_GetActiveDocument))
																		)
																		"ACAD_LAYERSTATES"
															)
														)
											)
										)
								)
		)
	)
(vlax-for item collection (setq NamesLst (cons (strcase (vla-get-name item)) NamesLst)))
)
)