;; | ---------------------------------------------------------------------------
;; | BL_GetAttrLyr
;; | ---------------------------------------------------------------------------
;; | Function : Get the layer from a block attribute
;; | Argument : 'ename'  - entity name of the block
;; |            'tag'    - Tag name of attribute to edit
;; | Returns  : Layer Name of specified tag
;; | Updated  : February 9, 2007
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetAttrLyr ( ename tag / aname Lyr )

(setq
	aname (BL_FindAttr ename tag)		; Search for attribute
	Lyr nil
)
(if aname
	(setq Lyr (LI_item 8 (entget aname)))
)
Lyr
)