;; | ----------------------------------------------------------------------------
;; | LA_GetAllLayers
;; | ----------------------------------------------------------------------------
;; | Function : Find out the names of the 'normal' layers in the drawing
;; |            Normal layers are those which belong to the current drawing.
;; | Argument : none
;; | Returns  : A list of all current 'normal' layers
;; | Updated  : April 17, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun LA_GetAllLayers( / LyrLst Lst tmp _tmp )

(setq
	LyrLst '()
	Lst (MI_tbldata "LAYER")
)
(if Lst
(progn
	(setq Lst (cadr Lst))
	(foreach tmp Lst
		(setq _tmp (LI_item 70 tmp))
		(if (and (zerop (logand _tmp 16)) (zerop (logand _tmp 32)))		; Normal block and block with attribute
			(setq LyrLst (cons (LI_item 2 tmp) LyrLst))
		)
	)
))
(if LyrLst (acad_strlsort LyrLst) nil)
)