03-01-2019
12:34 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-01-2019
12:34 PM
This will reset overridden dimensions of the GeneralDimension Type.
Dim oApp As Inventor.Application = ThisApplication Dim oDoc As DrawingDocument = oApp.ActiveDocument Dim oSheet As Sheet For Each oSheet In oDoc.Sheets For Each oDrawingDim As GeneralDimension In oSheet.DrawingDimensions.GeneralDimensions If oDrawingDim.ModelValueOverridden Then oDrawingDim.ModelValueOverridden = False End If Next Next
You will have to loop through other dimension types as well if they exist on the drawing. See the following link for further details on the DrawingDimensions Object.