List of Text Styles as options
It doesn't do quite what you're describing, but are you at least aware of the -STYLE command's ? option and the * option within that, to list all Styles? Note the hyphen prefix, to get the command-line rather than dialog-box Style command:
Command: -STYLE
Enter name of text style or [?] <ARCH>: ?
Enter text style(s) to list <*>: {Enter to accept * option}
Text styles:
Style name: ".... {lists them all}
You can get the same from the Style option within the TEXT command
Command: TEXT
Current text style: "ARCH" Text height: 0'-0 3/32" Annotative: Yes Justify: Left
Specify start point of text or [Justify/Style]: S
Enter style name or [?] <ARCH>: ?
Enter text style(s) to list <*>:
Text styles:
Style name: "....
EDIT:
But to your question more directly: That's probably possible, but with a proviso. The way to do such a thing, if you want to be able to pick the choice from the prompt's options or type in abbreviated option letters to get a particular Style, would be using (initget) and (getkword ), rather than (getstring ). The proviso is this question -- do any of the Style names ever have spaces in them? The (initget) function separates options with spaces, so spaces within a Style name would throw it off. Another question is this -- what is the nature of the Style names compared to each other, i.e. would it be possible to specify capitalized abbreviations that could work in the (initget)/(getkword) approach to differentiate each one uniquely?
Here is another example where you can use numbers to pick your style:
(defun c:foo (/ _getstyles a b c r)
;; RJP » 2019-03-14
(defun _getstyles (/ l x)
(while (setq l (tblnext "style" (null l)))
(or (wcmatch (cdr (assoc 2 l)) "*|*") (setq x (cons (cdr (assoc 2 l)) x)))
)
x
)
(setq a -1)
(setq b
(apply
'strcat
(mapcar '(lambda (x) (strcat (itoa (setq a (1+ a))) "-" (vl-string-translate " " "&" x) " "))
(setq c (vl-sort (_getstyles) '<))
)
)
)
(alert (cond ((> (length c) 1)
(setvar 'dynmode 1)
(initget 0 b)
(if (setq r (getkword (strcat "\nChoose [" (vl-string-translate " " "/" b) "]: ")))
(nth (fix (atof r)) c)
)
)
((car c))
)
)
)
@ВeekeeCZ wrote:
Theoretically... try this if it works for you.
In my testing we would need to exclude more characters... spaces for sure, maybe more...
It works for me in simple drawing... but not very good in the complex ones.
....
Interesting.... It definitely has a problem with Style names that include spaces -- I don't know what could be done about those except to Rename the Styles to omit the spaces, or replace them with underscore characters or something. And those that are nested in Xrefs are another problem, but that raises the question of what this would be used for. If it's [for example -- the most likely scenario, it seems to me] to set the chosen Style current, then Xref-nested ones should be left out of consideration entirely, and even in a simple situation, the prefixing letter and colon in the returned string would need to be stripped away.
Nice catch!
I would also exclude "" styles, not sure where they came from. But I have 5 of them...
