automated editing of text in blocks an attributes

[Anonymous]

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

[Anonymous]

;;;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 "colin1234" wrote in message news:30405886.1107974332119.JavaMail.jive@jiveforum1.autodesk.com... > 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

[cadman777]

Casey,

do you have a routine for editing plain text inside a block?
I need to change the width factor from 1 to .75 for all text inside a block.

Thanks ... Chris