Using VBA to insert Annotative text Object

[nelsonm87]

Hi all, I'm trying to tweak previously written code to, instead of using the model text height, somehow use the paper text height. What I'm searching for is a way to either retrieve the value of the modelspace's current annotation scale and use it to calculate the model text height, or to use a property of text objects that I'm not aware of that changes the paper text height for annotative texts.

 

Thanks in advance .

[nelsonm87]

Maybe something along the lines of cannoscale value?

[nelsonm87]

Alright! figured it out

 

 
sngtest = ThisDrawing.GetVariable("CANNOSCALEVALUE")

 

sngtest stores the value of the currently used annotation scale of the drawing being worked on. So from there, one can use that value to calculate the model text height. For Example, the Annotation Scale is 1:20; it will return the value .05. So, if you want Pspace text height to be .075, you would say .075/.05 = 1.5 (Mspace text height).