automated editing of text in blocks an attributes

I am after a lisp routing to automatically change the text height in a block from 312.5 to 250.
Alos i am after alisp routine to change the attributes of the lblocks from 312.5 to 250.

Thanks in advance

Colin

 

;;;Attribute height change
(defun c:ahc ()
(setq atth(getreal "\nEnter new attribute height: "))
(command "attedit" "y" "*" "*" "*" "c" pause pause)
(while
(= 1 (logand (getvar "cmdactive") 1))
(command "h" atth "n")
);;; end while
);;; end lisp


This was gleaned from this news group many moons ago, and I can't take
credit for writing it, but I've used it often.

Casey