I want to change the font in my text styles

[sgroff]

Description:
I have multiple text styles in a drawing ( i dont know all the names) and i want to change the font for each style to arial.ttf

How Used:
I need it to discover all the styles in a drawing then go through and change the font for each style to arial.ttf


Feature Affinity: text styles

--thanks a million for any help

[rkmcswain]

Like this?

Sub foo()
Dim oTextStyle As AcadTextStyle
For Each oTextStyle In ThisDrawing.TextStyles
    oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
Next oTextStyle
End Sub

[sgroff]

Like this?

Sub foo()
Dim oTextStyle As AcadTextStyle
For Each oTextStyle In ThisDrawing.TextStyles
    oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
Next oTextStyle
End Sub

thats excellent. exactly what i needed
thank you

[sgroff]

thanks again for the help. I just noticed though, the we have a style called Arial Bold, and this program turned off the "Bold" I need to get it back on.. I'm wondering if this program can be modified so that it ignores the Arial Bold textstyle or at least sets the font back to bold.

[Jeff_M]

Maybe like so?

For Each oTextStyle In ThisDrawing.TextStyles
    If Not UCase(oTextStyle.FontFile) Like "*ARIALBD.TTF" Then
        oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
    End If
Next oTextStyle

[sgroff]

Maybe like so?

For Each oTextStyle In ThisDrawing.TextStyles
    If Not UCase(oTextStyle.FontFile) Like "*ARIALBD.TTF" Then
        oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
    End If
Next oTextStyle

thanks, I'll try that..

[sgroff]

heres my final result.. any suggestions or comments are welcome.

Sub Font2Arial()
Dim oTextStyle As AcadTextStyle
For Each oTextStyle In ThisDrawing.TextStyles
  oTextStyle.fontFile = "c:\windows\fonts\arial.ttf"
If UCase(oTextStyle.Name) Like "*ARIAL BOLD" Then
        oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
If UCase(oTextStyle.Name) Like "*TIMES" Then
        oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
If UCase(oTextStyle.Name) Like "*BOLD" Then
        oTextStyle.fontFile = "c:\windows\fonts\arialbd.ttf"
End If
 Next oTextStyle
ThisDrawing.regen acAllViewports
End Sub