iLogic - Rounding Dimensions to nearest 0.5

[Lewis.Young]

Hi All,

I've got a little bit of experience using iLogic, but i haven't really used it with drawings before.

What i need is a rule that will round all dimension values to the nearest "0.5". If the length of that feature changes i would also like the dimensions to update, where as if i just changed the dimension by overriding it at the moment, it wouldn't update automatically.and would stay at that overridden value.

Thanks 

[ThomasB44]

Hi @Lewis.Young

Here an example of code to round values, round to nearest with "round", round up with "Ceil" and round down with "Floor"

By multiply by 2 and then divide by 2 you will obtain your round by 0.5.

SyntaxEditor Code Snippet

Dim Num as Decimal
Num = 1.6
MessageBox.Show("Round : " & Round(Num*2,0) / 2 _
& vbNewLine & "Ceil : " & Ceil(Num*2) / 2 _
& vbNewLine & "Floor : " & Floor(Num*2) / 2, "Title")

And here an example of rule to go through each dimension and apply the rounded value, so the dimension is override...

You will need to run the rule to update the dimensions.

 SyntaxEditor Code Snippet

Dim oDrawDoc as DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oDrawingDimension As Object
Dim oDimValue As Double

For Each oDrawingDimension In oDrawDoc.ActiveSheet.DrawingDimensions.GeneralDimensions
    oDimValue = oDrawingDimension.ModelValue * 10 'cm to mm
    oDimValue = (Round(oDimValue * 2) / 2)
    oDrawingDimension.OverrideModelValue = oDimValue / 10 'mm to cm
Next

You could add some statements to only round the needed dimensions.

Or also inspire with this rule here, wrote by Curtis 

[Curtis_Waguespack]

just tying duplicate posts together:

http://forums.autodesk.com/t5/inventor-customization/ilogic-rounding-to-nearest-0-5/m-p/6868614/high...

@Lewis.Young please try not to double post (see bullet point 4):

http://forums.autodesk.com/t5/community-faq/etiquette-and-ground-rules/m-p/5384757#U5384757

[Anonymous]

That's all well and good, but I think it's a pity that it's not an automatic feature of Inventor, for those of us who feel iLogic is bit above our pay-grades.

[katy.psallida]

This code works amazing but unfortunately when using angular dimensions to show degrees it doesn't work.

is there a fix for that?

[johnNL9B49]

i had the same problem as you where the angular dimensions were overwritten to seemingly random numbers.

but i've managed to botch a fix with the following:  

' a reference to the active drawing document
Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

' a reference to the active sheet & dimension
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim oDrawingDimension As DrawingDimension

' Iterate over all dimensions in the drawing if they are linear (Not angular)
For Each oDrawingDimension In oSheet.DrawingDimensions
If TypeOf oDrawingDimension Is LinearGeneralDimension Then

oDimValue = oDrawingDimension.ModelValue * 10 'cm to mm
oDimValue = (Round(oDimValue * 2) / 2)
oDrawingDimension.OverrideModelValue = oDimValue / 10 'mm to cm
End If
Next