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

Hi machiel.veldkamp,

 

I'm a bit late to this discussion, but this is what I came up with.

 

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

 

Dim oDrawDoc As DrawingDocument 
Dim oSheet As Sheet

'get the current drawing
oDrawDoc = ThisDoc.Document
'get the active sheet
oSheet = oDrawDoc.ActiveSheet

' Set a reference to the first general dimension in the collection.
Dim oGeneralDim As GeneralDimension
oGeneralDim = oSheet.DrawingDimensions.GeneralDimensions.Item(1)

' Set a reference to the dimension style of that dimension.
Dim oDimStyle As DimensionStyle
oDimStyle = oGeneralDim.Style

' Change units property of the dimension style to mm
' This will modify all dimensions that use this style.
oDimStyle.LinearUnits = UnitsTypeEnum.kMillimeterLengthUnits 
	
MessageBox.Show("EXPORT DXF CODE HERE", "iLogic")
	
' Change units property of the dimension style back to inches
' This will modify all dimensions that use this style.
oDimStyle.LinearUnits = UnitsTypeEnum.kInchLengthUnits