Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

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

 


Please accept as solution and give likes if applicable.

I am attaching my Upwork profile for specific queries.

Sergio Daniel Suarez
Mechanical Designer

| Upwork Profile | LinkedIn