;; | ---------------------------------------------------------------------------
;; | BL_GetAttrRotAng
;; | ---------------------------------------------------------------------------
;; | Function : Get the rotation angle of the block attribute
;; | Argument : 'ename'  - entity name of the block
;; |            'tag'    - tag name of attribute to get height from
;; | Returns  : The rotation angle in degrees of the block attribute
;; | Updated  : November 5, 2007
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetAttrRotAng ( ename tag / aname RotAng )

(setq
	aname  (BL_FindAttr ename tag)		; Search for attribute
	RotAng nil
)
(if aname
	(setq RotAng (MI_r2d (LI_item 50 (entget aname))))
)
RotAng
)