Computer Aided Automation

Full Version: AutoCAD VBA roundup function
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
AutoCAD VBA roundup function

Function RoundUp(ByVal Value As Double)
    If Int(Value) = Value Then
        RoundUp = Value
        RoundUp = Int(Value) + 1
    End If
End Function

'call statements
sideholes = RoundUp((OPHEIGHT - 50) / 400)