小工具 最小清角刀具的选用

野狼爱小宝

上次发的 没写清楚
要把下面的代码复制到 记事本里 然后另存为 1.vbs 后缀的文本就好了 双击执行,
输入刀具直径,点击确定就出来了,去整数就OK了
只是算出清角的最小刀具
例如: 上把 刀具是63 最小的清角刀具是13 根据实际 选用现有刀具 14或16 等刀具 来清角
只适合2D
do
a=inputbox ("tool ")
if a = "" then
a=inputbox(" ")
else
b=a/2
c=(b*b)*2
d=sqr(c)
e=a/2
f=d-e
msgbox f
exit do
end if
loop
闲来无事 找点乐子
大师傅们绕道,新手看一下, 学习一下,经验加算法 可以提高效率

事过境迁

do
    a = InputBox("tool ")
    if a = "" then
        a = InputBox("Please enter a number: ")
    end if
    if a <> "" then
        b = a / 2
        c = (b * b) * 2
        d = Math.Sqrt(c)
        e = a / 2
        f = d - e
        MsgBox f
        exit do
    end if
loop
一起无聊无聊

野狼爱小宝

事过境迁 发表于 2024-7-18 10:31
do
    a = InputBox("tool ")
    if a = "" then