08-12-2019, 07:53 AM
AutoCAD VBA roundup function
Code:
Function RoundUp(ByVal Value As Double)
If Int(Value) = Value Then
RoundUp = Value
Else
RoundUp = Int(Value) + 1
End If
End Function
'call statements
sideholes = RoundUp((OPHEIGHT - 50) / 400)