Change the text size in the Styles Editor using VBA

[shastu]

This should be so simple, but I can't figure out how to do it.  All I want to do is change the Text Height of "DEFAULT-ANSI" using VBA for the active drawing file.  See screenshot. 

Sub TextSize()

    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' Set a reference to the active sheet.
    Dim oActiveSheet As Sheet
    Set oActiveSheet = oDrawDoc.ActiveSheet

    ' Code to change the Text Height from 0.120 to .080. 

End Sub

[bradeneuropeArthur]

try  this:

If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then
Dim oIDW As DrawingDocument
Set oIDW = ThisApplication.ActiveDocument
 
Dim oIDWStyles As Inventor.DrawingStylesManager
Set oIDWStyles = oIDW.StylesManager

'MsgBox oIDWStyles.RevisionTableStyles.Count
oIDWStyles.TextStyles.Item(1).FontSize

[JelteDeJong · Accepted solution]

try this

Sub TextSize()
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' make a refrence to the style you want to change.
    ' here i change the text style: "Note Text (DIN)"
    Dim textStyle As textStyle
    Set textStyle = oDrawDoc.StylesManager.TextStyles.Item("Note Text (DIN)")
    
    textStyle.FontSize = 3.5 '<-- this should be set in Cm
End Sub

[shastu]

Thank you so much!!!  I tried to look through the Autodesk Inventor 2019 API Help, but just couldn't quite get there.  If you have any suggestions on how better to use that tool, I would be forever grateful.

[grenee]

Good day,

When I copy and paste this code this is the error message that comes up:

User-defined type not defined

[shastu]

My first thought was that you just copied and pasted it without any changes?  You have to change the name of the Text style that you want to manipulate.  So in the line Set textStyle = oDrawDoc.StylesManager.TextStyles.Item("Note Text (DIN)" you have to change the "Note Text (DIN)" to be what your text style is called.  However, then I tried doing that and I did not get the error you got, so maybe JelteDeJong can answer you.

[grenee]

Thanks for your response. 

However, me aim is to change to text size of the dimension and not the general text.

[shastu]

Something like this then:

Sub DimensionTextSize()
'set active document as drawing document
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

'get the active dim style
Dim oDStyle As DimensionStyle
Set oDStyle = oDoc.StylesManager.ActiveStandardStyle. _
ActiveObjectDefaults.LinearDimensionStyle

'get current font size
Dim sFontSize As String
sFontSize = oDStyle.textStyle.FontSize
'MsgBox(sFontSize)

'set font size for dim style
oDStyle.textStyle.FontSize = 0.35
End Sub

[grenee]

There is still a problem. The problem is with this Line: Dim oDoc As DrawingDocument

That is DrawingDocument is not defined

[greneebb]

This is the result.

[shastu]

I am not as knowledgeable as some others, but my guess would be that you are not pasting this in the correct location.  Are you pasting the code into a Module?  If not, please insert a new Module and paste it in there(in the browser, Right Mouse Click on the Project, then left mouse click on the Insert, then left mouse click on Module).  Then paste the code in that new module and try to run it from that Module.

[greneebb]

Thanks for your response.

However, I think it is pasted correctly. But notice that the message says that DrawingDocument is undefined.  So, how is this to be defined?

[greneebb]

Where can I find styles and standard editor?

[shastu]

The Line: "Dim oDoc As DrawingDocument" is how you define it.  That is what is confusing me.  That line should not throw an error as you are just telling it to set oDoc as a drawing document.  In other words, if you try to run this code from an ipt file or an iam file, it will error out because it is not a drawing, i.e. dwg or idw file.  Is there any way that you can send me the file that you pasted this code into?  If you are pasting it in a file, send me the file.  If you are pasting it in the default.ivb, then send me that file.

[shastu]

Are you talking about the one in Inventor?  If so, it is under the Manage tab.

[greneebb]

I don't have inventor

[greneebb]

Do I have to have Inventor?

[shastu]

Yes.  Given that this is an Inventor forum, I just assumed you were working with Inventor.  What are you working in?

[greneebb]

I am using AutoCAD

[greneebb]

Where can I find a forum for AUTOCAD?