找回密码
 立即注册

QQ登录

只需一步,快速开始

微信扫码登录

搜索
查看: 732|回复: 2

[分享] 小工具 最小清角刀具的选用

[复制链接]

10

主题

383

回帖

4956

积分

中尉

积分
4956
发表于 2024-7-18 08:45:39 | 显示全部楼层 |阅读模式
上次发的 没写清楚
要把下面的代码复制到 记事本里 然后另存为 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
闲来无事 找点乐子
大师傅们绕道,新手看一下, 学习一下,经验加算法 可以提高效率

3

主题

45

回帖

1783

积分

六级士官

积分
1783
发表于 2024-7-18 10:31:23 | 显示全部楼层
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
一起无聊无聊

10

主题

383

回帖

4956

积分

中尉

积分
4956
 楼主| 发表于 2024-7-18 11:18:00 | 显示全部楼层
事过境迁 发表于 2024-7-18 10:31
do
    a = InputBox("tool ")
    if a = "" then

{:}
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

咨询QQ:1359218528|发帖须知!|Archiver|手机版|小黑屋|UG爱好者论坛 ( 京ICP备10217105号-2 )

GMT+8, 2024-12-24 09:17

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表