Global Text Style Height Change F1

Hello All,

Anyone have a nifty neato lisp routine to change "All" text style heights to 0 (non-fixed)?

Thanks.

"Catch" Ya Later,
AKDRAFTER

 

Yes - see below. But, just out of curiosity, why would you want to change the height to zero
(0)?

(defun c:chgts ()
(setvar "cmdecho" 0)
(setq a (ssget))
(setq b (sslength a))
(menucmd "s=textsize")
(setq c (getdist "\nENTER NEW TEXT SIZE: "))
(if (<= c 0.125)(command "-layer" "s" "0" ""))
(if (> c 0.125)
(progn
(if (<= c 0.375)(command "-layer" "s" "0" ""))
(if (> c 0.375)(command "-layer" "s" "0" ""))
)
)
(while (> b 0)
(setq b (1- b)
d (ssname a b)
d (entget d)
e (assoc 40 d)
f (cons 40 c)
)
(entmod (setq d (subst f e d)))
)
(setq a nil)
(princ)
)

 

Looks like this would change the height of all text entities in the drawing
(to whatever size you give it), but I took the original post to mean they
were looking for a way to set the height of all defined text STYLES to zero
(non-fixed-height). [Not that I know how to do that, or anything....] Is
that right?

Kent Cooper, AIA

...

 

Height 0 makes for flexible text usage with fewer styles...
so, how 'bout?:

(defun C:TSH0()
(vlax-for _obj
(vlax-get-property
(vlax-get-property
(vlax-get-acad-object)
'ActiveDocument
)
'TextStyles
)
(vlax-put-property
_obj
'Height
)
0.0
)
);_end defun


hth,
David Kozina

 

And a non-vl version.....

(defun c:styl2zero (/ styl)
(while (setq styl (tblnext "style" (not styl)))
(setq styl (entget (tblobjname "style" (cdr (assoc 2 styl)))))
(entmod (subst (cons 40 0.0) (assoc 40 styl) styl))
)
(princ)
)

Jeff

 

I *always* forget the (princ) at the end...

 

Fer pete's sake...

(defun C:TSH0()
(vlax-for _obj
(vlax-get-property
(vlax-get-property
(vlax-get-acad-object)
'ActiveDocument
)
'TextStyles
)
(vlax-put-property
_obj
'Height
0.0 ;<- this should work bet-tah
)
)
(princ)
);_end defun

 

Jeff,

Exactly what I needed. Works great. Thank you sir.

To others,

My goal was to take all "Defined" text styles and set their height to 0 which is what Jeff provided.

"Catch" Ya Later,
AKDRAFTER