04-10-2019
09:12 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-10-2019
09:12 PM
04-11-2019
03:27 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-11-2019
03:27 AM
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