Topic: Textsize

[Pukenzz]

I have 3 different dimension styles…
CEI-ARCHITECTURAL
CEI-FRACTIONAL
CEI-DECIMAL
This portion of lisp will change the dimscale…
(wcmatch (strcase (getvar 'dimstyle)) "*CEI*")
       (setvar 'dimscale 1)(setvar 'textsize 0.100)
I rewrite it for 16 different buttons that correspond to the 16 different dimscales I want to be able to use. I have that all working fine.
Now I’m looking for help on the code that would be associated to make it so that I can change all my textsize of all my textstyles at the same time.  I have 3 text styles..

CEI-DIM
CEI-VIEW
CEI-NOTE
Changing textsize only changes the textstlye that is current.  I want to be able to change all 3 at the same time regardless of which is active.

Thanks in advance

[Dlanor]

Try this

Code - Auto/Visual Lisp: [Select]

1. (defun c:csh ( / c_doc c_styles s_lst th)
2.   (vl-load-com)
3.  
4.   (setq c_doc (vla-get-activedocument (vlax-get-acad-object))
5.         c_styles (vla-get-textstyles c_doc)
6.         s_lst (list "CEI-DIM" "CEI-VIEW" "CEI-NOTE")
7.   );end_setq
8.   (initget (+ 1 2 4))
9.   (setq th (getreal "\nEnter New Text Height for TextStyles : "))
10.   (setvar 'textsize th)
11.   (foreach style s_lst
12.     (vlax-put-property (vla-item c_styles style) 'lastheight th)
13.   );end_foreach
14. );end_defun
15.