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

Hi @HermJan.Otterman

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.

___________________________