;; | ---------------------------------------------------------------------------
;; | BL_SetAttrRotAng
;; | ---------------------------------------------------------------------------
;; | Function : Set the rotation angle of a block attribute
;; | Argument : 'ename'  - entity name of the block
;; |            'tag'    - tag name of attribute to edit
;; |            'RotAng' - Text Attribute Rotation angle to set (in degrees)
;; | Returns  : The updated block entity name if succesful otherwise nil
;; | Updated  : November 12, 2007
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_SetAttrRotAng ( ename tag RotAng / aname entl )

(setq aname (BL_FindAttr ename tag))		; Search for attribute
(if aname
(progn
	(setq
		entl (entget aname)
		entl (subst (cons 50 (MI_d2r RotAng)) (assoc 50 entl) entl)
	)
	(entmod entl)
	(entupd ename)
)
(setq ename nil)
)
ename
)