;; | ---------------------------------------------------------------------------
;; | BL_GetAttrHgt
;; | ---------------------------------------------------------------------------
;; | Function : Get the height of a block attribute
;; | Argument : 'ename'  - entity name of the block
;; |            'tag'    - tag name of attribute to edit
;; | Returns  : The height of the block attribute text
;; | Updated  : November 5, 2007
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetAttrHgt ( ename tag / aname Hgt )

(setq
	aname (BL_FindAttr ename tag)		; Search for attribute
	Hgt nil
)
(if aname
	(setq Hgt (LI_item 40 (entget aname)))
)
Hgt
)