Community
@John_Olthafer wrote:....
I'm looking for code to retrieve the "Paper Text Height" from the current (active) "Text Style".
I have searched and found something about Group Code DXF 41 but I am not familiar with how to use these in LISP.
....
The 41 code is the width factor of a Text Style, so I don't think that's going to be the answer.
I don't have a new-enough version to have a differentiated "paper text height" in Text Styles, but if that's a characteristic of the Style definition, it won't be in a System Variable. But the name of the current (active) Style is stored in the TEXTSTYLE System Variable. Try:
(tblsearch "style" (getvar 'textstyle))
to get the Style's definition, and see if it's in there. Or better yet, because it has descriptive names for Properties:
(vlax-dump-object (vlax-ename->vla-object (tblobjname "style" (getvar 'textstyle))))
If it's a Style with a defined height of 0, you can get the height at which it was last used, that is, the current height for that Style:
(vla-get-LastHeight (vlax-ename->vla-object (tblobjname "style" (getvar 'textstyle))))
[which also works for fixed-height Styles, but I think would always be the same as the defined height].
Kent Cooper, AIA 
@John_Olthafer wrote:...When i run your tblsearch code i get the following...
Command: (tblsearch "style" (getvar 'textstyle))
((0 . "STYLE") (2 . "TEXTSTYLENAME") (70 . 0) (40 . 0.09375) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . "stylu.ttf") (4 . ""))
The fourth return (40) is the number that i was looking to retrieve (0.09375). Now I just need to figure out how to extract that number....
That's just the defined height of the Style. There are no additional entries in the definition than what I get back in ol' 2004, so there's nothing to indicate any differentiation between Paper and Model Text Height, which means if that's a version-dependent differentiation that is made, it must be handled otherwise than through the Style definition, such as perhaps by extended data attached to the Style as an object from (tblobjname), or something.
Getting that number out of there would be done this way:
(cdr (assoc 40 (tblsearch "style" (getvar 'textstyle))))
Kent Cooper, AIA
@John_Olthafer wrote:
Kent... why would sometimes that code work for me... and other times I get this???
Command: (cdr (assoc 40 (tblsearch "style" (getvar "texstyle"))))
; error: bad argument type: stringp nil....
[Because you got to it before I fixed it.... I had originally left the second t out of "textstyle", but noticed shortly after posting it -- that's why my reply has been Edited.]
Kent Cooper, AIA
LOL ok sorry. I guess when I typed it in it worked and when I cut and pasted it didn't.
That is exactly what I needed. Thank you very much! 
![Autodesk Design & Make Report](https://forums.autodesk.com/t5/image/serverpage/image-id/1350519iCB55845EBFC43016/image-size/large?v=v2&px=999" "Autodesk Design & Make Report")
