Block object with attribute text

Dear All,
I have one dwg with 50nos Layout. All Layouts having one type Block( with attribute text) individually. If i am going to edit the DWG No. and Cont.On Values means , it will take too much time.
What to do ? Is it possible to automatically change the above attribute values.
Please refer the clouded area in attached file.
your concern must be appreciated.
thanks.

Hope this would help you with it ..

Code:

---

(defun c:TesT (/ *error* blk vla value)
;;; Tharwat 16. Oct. 2011 ;;;
  (cond ((not acdoc)
        (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
        )
  )
  (vl-load-com)
  (defun *error* (msg)
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **"))
    )
    (princ)
  )
  (if (setq blk (ssget "_+.:s" '((0 . "INSERT") (66 . 1))))
    (progn
      (vla-StartUndoMark acdoc)
      (setq vla (vlax-ename->vla-object (ssname blk 0)))
      (while
        (foreach x (vlax-invoke vla "GetAttributes")
          (if (not
                (eq
                  (setq value
                        (getstring T
                          (strcat
                            "\n Enter string to change or " " " "< hit enter to leave the value > : "
                            "[ " (vla-get-textstring x)" ]" ))) ""
                  )
                )
            (vla-put-textstring x value)
          )
        )
      )
      (vla-EndUndoMark acdoc)
    )
    (princ)
  )
  (princ)
)

---

Tharwat

Thanks,
Actually how to work with this attribute values below mentioned. and also i want to do it automatically.
In that Cluoded Area i want to put continuation sheet no.(Cont.No.). If Sht No.(Sheet No.) value 001, means that continuation Sheet No. value Will be 002. And also last sheet of the drawing i have to put *END* for continuation sheet no. (Cont. On.).
please refer the attachment

Tharwat, to make your attribute value prompts more complete, you can get the promptstring by stepping through the block's definition (once).