02-22-2018
12:38 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-22-2018
12:38 AM
Thanks!
I tried this and failed. I'm close though!
For Each oRefDoc In oRefDocs 'CHANGE INCHES TO MM FIRST - AFTER THAT, EXPORT dwgPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName)-3) & "dwg" 'check to see that the model has a drawing of the same path and name If(System.IO.File.Exists(dwgPathName)) Then Dim oDrawDoc As DrawingDocument oDrawDoc = ThisApplication.Documents.Open(dwgPathName, True) Dim oStylesMgr As DrawingStylesManager = oDrawDoc.StylesManager MessageBox.Show(dwgPathName, "titel" ) MessageBox.Show(oStylesMgr.ActiveStandardStyle.LinearUnits, "Title") MessageBox.Show(oStylesMgr.ActiveStandardStyle.InternalName, "titel" ) ---> This is the wrong setting oStylesMgr.ActiveStandardStyle.LinearUnits = UnitsTypeEnum.kMillimeterLengthUnits 'MessageBox.Show(Kaas, "Title") ---> This is not allowed oStylesMgr.DimensionStyles.Type = UnitsTypeEnum.kMillimeterLengthUnits
@Curtis_Waguespack Maybe you can figure out how with your magic?
Did you find this reply helpful ? If so please use the Accept as Solution or Kudos button below.
___________________________