Font style ilogic

[manikandanmmkm]

Hi,

How to change font style (Arial to tahoma) using ilogic in style.

[Sergio.D.Suárez · Accepted solution]

Hi, try this code maybe I can be useful to you

SFont = "ISOCTEUR"

Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document

oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults _
.LinearDimensionStyle.TextStyle.Font = SFont

oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults _
.TitleBlockTextStyle.Font = SFont

oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults _
.SketchTextStyle.Font = SFont

oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults _
.SketchedSymbolTextStyle.Font = SFont

oDoc.StylesManager.ActiveStandardStyle.ActiveObjectDefaults _
.ViewLabelStyle.Font = SFont