分享一个计算磁带机皮带长度的VBA小代码

提坦斯 · 发表于 2018-4-13 11:59

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由提坦斯于 2018-4-14 13:42 编辑

最近入手一台TCM-7，通电不转，拆开后发现皮带松弛了
微信图片_20180411180129.jpg

这个皮带的绕法很少见，为了准确起见，采用测算法，量好尺寸后，CAD作图，画好3个滚轮的位置，TAN命令做好切线后，切除滚轮，留下皮带轮廓线，皮带长度就是图中所有直线长度和圆弧长度加起来的值

虽然直线和圆弧的数量很少，但一个个查看长度属性再累加还是很麻烦，就顺手写段VBA代码，遍历图中所有对象，并自动计算皮带长度

最后附上AutoCAD文件和VBA工程文件，AutoCAD里：工具-->宏-->加载工程，加载上工程文件后执行就可以计算了。
祝大家用的顺利

皮带长度.zip (40.18 KB, 下载次数: 166)

lanliyang · 发表于 2018-4-13 17:15

试下用线按皮带绕法绕一圈，然后测量出这一圈线的长度乘0.95，和你CAD画的线长度偏差多少？？

翼光 · 发表于 2018-4-13 20:49

这个厉害，高大上！

hjc13058063452 · 发表于 2018-4-13 21:17

我一条线可以搞定尺寸！

提坦斯 · 发表于 2018-4-16 10:34

lanliyang 发表于 2018-4-13 17:15
试下用线按皮带绕法绕一圈，然后测量出这一圈线的长度乘0.95，和你CAD画的线长度偏差多少？？

用游标卡尺量，只要轮心之间的距离和轮直径量的准确，那么精度就是游标卡尺的0.1毫米，当然轮心之间的距离量起来不如量直径精度高，但是比用线量时存在的伸缩误差肯定要小

提坦斯 · 发表于 2018-4-16 17:20

本帖最后由提坦斯于 2018-4-16 17:29 编辑

换了对折长度90mm、截面1mm的皮带，立刻恢复正常了。磁头加载动作电机工作的声音真给力
IMG_20180416_171243_调整大小.jpg

[磁带随身听] 分享一个计算磁带机皮带长度的VBA小代码