08-01-2016
02:11 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-01-2016
02:11 AM
Hi Alex,
Hope my code will be helpful for you
Dim oDrawDoc as DrawingDocument oDrawDoc = ThisApplication.ActiveDocument Dim oDrawingDimension as object For each oDrawingDimension in oDrawDoc.Activesheet.DrawingDimensions.GeneralDimensions Dim oDimValue as Double oDimValue = oDrawingDimension.ModelValue * 10 oDimValue = (Round(oDimValue/5))*5 oDrawingDimension.OverrideModelValue = oDimValue / 10
Next
Note: This will round of only the drawing driven dimension if you delete the dimension and repeat the dimension it will load the default dimension value again you need to run the rule.