小工具 最小清角刀具的选用
上次发的 没写清楚要把下面的代码复制到 记事本里 然后另存为 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
{:handshake:}
页:
[1]