Changing text style name
@Anonymous wrote:
I'd like to change the text style names in the same way that the lisp below changes layer names but am not sure how to access the text style table?
....
(vlax-for OBJ
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)
)
)
....(if (not (tblsearch "LAYER" LAY))
....
....
(vla-get-textstyles
....
(if (not (tblsearch "STYLE" LAY))
....
with appropriate alterations of variable names, etc.
Kent Cooper, AIA 
Accepted solution
@Anonymous wrote:
I did substitute what I thought would be correct but although the program runs it does not make the substitutions ....
....
(if (not (tblsearch "STYLE" STL))
(vl-catch-all-apply
'vla-put-name (list OBJ STL)
)
)
....
I'm not as versed as some in the syntax of certain (vla...) functions, so I don't know whether that's the issue, but this works for me in place of the portion quoted above:
....
(if (not (tblsearch "STYLE" STL))
(command "_.rename" "_style" (vla-get-name OBJ) STL)
)
....
Yes, it's "slower" than the (vla) method, but unless you have very large numbers of Style names, you would never detect the difference.
Consider whether to:
(setq STR1 "AQ_"
[with the underscore], in keeping with your sample name change at the beginning of Post 1.
Also consider checking each Style name for whether it contains the old character string, before constructing a new name and substituting it [which is "wasted effort" when it doesn't -- the original name will be substituted for itself].
And finally, might any of these have aq_ [lower-case, or perhaps not both the same case] rather than AQ_ in their names? Though the Rename command would work either way, the (...-subst) function is case-sensitive, but if needed, you can make it account for that possibility.
Kent Cooper, AIA