;; | ---------------------------------------------------------------------------
;; | BL_WriteAttr
;; | ---------------------------------------------------------------------------
;; | Function : Write a value into a specified attribute in a block
;; | Argument : 'ename' - entity name of the block
;; |            'tag'   - tag name of attribute to write
;; |            'Value' - Value to be set for the attribute
;; | Returns  : The updated block entity name if succesful otherwise nil
;; | Updated  : November 12, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_WriteAttr ( ename tag value / aname entl )

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