家电论坛

广告合作
 注册  找回密码

QQ登录

只需一步,快速开始

手机号码,快捷登录

手机号码,快捷登录

查看: 2656|回复: 5

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

[复制链接]

101

主题

409

帖子

3

威望

中级会员

Rank: 3Rank: 3Rank: 3

交易诚信度
2
注册时间
2007-3-30
发表于 2018-4-13 11:59 | 显示全部楼层 |阅读模式

马上注册 家电论坛,众多有奖活动等你来参与!

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

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

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

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

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

最后附上AutoCAD文件和VBA工程文件,AutoCAD里:工具-->宏-->加载工程,加载上工程文件后执行就可以计算了。
祝大家用的顺利
皮带长度.zip (40.18 KB, 下载次数: 166)
回复

使用道具 举报

43

主题

3193

帖子

15

威望

高级会员

Rank: 4Rank: 4Rank: 4Rank: 4

交易诚信度
0
注册时间
2017-2-16
发表于 2018-4-13 17:15 来自家电论坛网手机触屏版 | 显示全部楼层
试下用线按皮带绕法绕一圈,然后测量出这一圈线的长度乘0.95,和你CAD画的线长度偏差多少??

点评

用游标卡尺量,只要轮心之间的距离和轮直径量的准确,那么精度就是游标卡尺的0.1毫米,当然轮心之间的距离量起来不如量直径精度高,但是比用线量时存在的伸缩误差肯定要小  详情 回复 发表于 2018-4-16 10:34
回复

使用道具 举报

96

主题

2410

帖子

4

威望

中级会员

Rank: 3Rank: 3Rank: 3

交易诚信度
4
注册时间
2008-8-18
发表于 2018-4-13 20:49 来自家电论坛网手机触屏版 | 显示全部楼层
这个厉害,高大上!
回复

使用道具 举报

5

主题

60

帖子

0

威望

新手上路

Rank: 1

交易诚信度
0
注册时间
2018-3-13
QQ
发表于 2018-4-13 21:17 | 显示全部楼层
我一条线可以搞定尺寸!
回复 支持 反对

使用道具 举报

101

主题

409

帖子

3

威望

中级会员

Rank: 3Rank: 3Rank: 3

交易诚信度
2
注册时间
2007-3-30
 楼主| 发表于 2018-4-16 10:34 | 显示全部楼层
lanliyang 发表于 2018-4-13 17:15
试下用线按皮带绕法绕一圈,然后测量出这一圈线的长度乘0.95,和你CAD画的线长度偏差多少??

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

使用道具 举报

101

主题

409

帖子

3

威望

中级会员

Rank: 3Rank: 3Rank: 3

交易诚信度
2
注册时间
2007-3-30
 楼主| 发表于 2018-4-16 17:20 来自家电论坛网手机触屏版 | 显示全部楼层
本帖最后由 提坦斯 于 2018-4-16 17:29 编辑

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

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|手机版|客服:010-60152166 邮箱:zx@jd-bbs.com QQ:895456697|广告合作|账号注销|家电联盟网

京公网安备 11010602010207号 ( 京ICP证041102号,京ICP备09075138号-9 )

GMT+8, 2026-3-25 19:48 , Processed in 0.146770 second(s), 31 queries , Gzip On.

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