Tolerance

[martinhoos]

Hello together,

is there a solution to change the +0,50 and -0,20 via iLogic  like:

If nw < 300 Then

????

End If

Thanks in advance

Regards Martin

[ekinsb · Accepted solution]

This will do it.  The sample code below is just getting the first dimension it finds on the sheet so you'll need to do something smarter.

Dim drawDoc As DrawingDocument = ThisDoc.Document

Dim drawDim As DrawingDimension
drawDim = drawDoc.ActiveSheet.DrawingDimensions.Item(1)

If drawDim.ModelValue > 5 Then
    drawDim.Tolerance.SetToDeviation(0.2, 0.1)
Else
    drawDim.Tolerance.SetToDeviation(0.15, 0.075)
End If

[martinhoos]

Thanks Brian,

that will help me alot.

Regards Martin