;; | ---------------------------------------------------------------------------
;; | BL_ReadAttrNo
;; | ---------------------------------------------------------------------------
;; | Function : Returns the value of the attribute of a given tag
;; | Argument : 'ename' - entity name of the block
;; |            'pos'   - Position of the attribute from start (from 1)
;; | Returns  : The attribute value , if it exists otherwise nil is
;; |            returned
;; | Updated  : November 13, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_ReadAttrNo( ename pos )

(setq ename (BL_FindAttrNo ename pos))
(if ename
	(LI_item 1 (entget ename))
	nil
)
)