The drawing that you have uploaded is not attributed block , so do not test the code on because it would not work , try to make another block that contains the same tag strings that you have included within your post to change .
(defun c:TesT (/ blks i sn n e)
;;; Tharwat 27. Nov. 2011 ;;;
(if (setq blks (ssget '((0 . "INSERT") (66 . 1))))
(repeat (setq i (sslength blks))
(setq sn (ssname blks (setq i (1- i))))
(setq n (entnext sn))
(while
(not
(eq (cdr (assoc 0 (setq e (entget n))))
"SEQEND"
)
)
(if (eq (cdr (assoc 0 e)) "ATTRIB")
(cond ((eq (cdr (assoc 2 e)) "REV1")
(entmod (subst (cons 1 "A") (assoc 1 e) e))
)
((eq (cdr (assoc 2 e)) "REVDATE1")
(entmod (subst (cons 1 "01/12/2011") (assoc 1 e) e))
)
((eq (cdr (assoc 2 e)) "REVDESC1")
(entmod (subst (cons 1 "FOR REVIEW") (assoc 1 e) e))
)
((eq (cdr (assoc 2 e)) "APP1")
(entmod (subst (cons 1 "MAL") (assoc 1 e) e))
)
((eq (cdr (assoc 2 e)) "DATE")
(entmod (subst (cons 1 "01/12/2011") (assoc 1 e) e))
)
)
)
(setq n (entnext n))
)
)
)
(princ)
)