02-22-2018
05:43 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-22-2018
05:43 AM
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