SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 超级好用的链条绘制插件 [打印本页]

作者: wbp001 时间: 2009-11-18 09:40
标题: 超级好用的链条绘制插件

链传动Solidworks宏.rar (77.56 KB, 下载次数: 41) 适用于SW2007以上的版本，直接输入参数就可以生成链条零件，不过不是装配体所以不能做动画。无需密码
宏工具在SW的工具宏里面

作者: goodboy1019 时间: 2009-11-18 09:40
适用于SW2007以上的版本？07版的能用吗

作者: polo3456 时间: 2009-11-18 09:40
太棒了，这几天画得我是头晕脑涨
而且还不收钱...
不能作动画可惜了

作者: qiya12345 时间: 2009-11-18 09:41
好东西。向楼主学习。不会二次开发

作者: hpjin 时间: 2009-11-18 09:44
看看是否各个地方人鬼和人

作者: tv905oft06 时间: 2009-11-18 09:45
不能做动画可惜了，我就想找一个能做链条动画的东西呢！！

作者: 闻人仙仪 时间: 2009-11-18 09:45
好强！！！

作者: vnglnvlnos 时间: 2009-11-18 09:46
感谢楼主分享

作者: zhou_cb21 时间: 2009-11-18 09:47
楼主脸皮真厚,这不是你的.
信不信,
Sub main()
Dim myForm As New UserForm1
myForm.Show
Dim z2, z1, z3, z4, z5, z6 As Double  '特殊的数据类型，可以包含数值、字符串或日期数据String
' z0是链号,z2是大链轮,z1是小链轮,z3是链轮中心距
      If myForm.ComboBox2.SelText = "" Then '真
      z2 = Val(myForm.ComboBox2.Value) 'z2是大链轮
      Else
      z2 = Val(myForm.ComboBox2.SelText)
      End If
If myForm.ComboBox3.SelText = "" Then '真
      z1 = Val(myForm.ComboBox3.Value) 'z1是小链轮
      Else
      z1 = Val(myForm.ComboBox3.SelText)
      End If
If myForm.TextBox1.SelText = "" Then '真
      z3 = myForm.TextBox1.Value / 1000 'z3是链轮中心距
      Else
      z3 = myForm.TextBox1.SelText / 1000
      End If
z4 = z3 * 1000
'计算大小轮节径=q_p/sin180/z1
Dim mmm1, mmm2 As Double '1是小链轮,2是大链轮,
Dim pi As Double
pi = 4 * Atn(1)
mmm1 = q_p / Sin((180 / z1) * pi / 180)
mmm2 = q_p / Sin((180 / z2) * pi / 180)
If z2 <= z1 Then '真
UserForm3.Show
End If
'计算直边长=
Dim mmm3 As Double '直边长
If (mmm2 / 2 + mmm1 / 2) > z3 Then '真
UserForm4.Show
End If
mmm3 = Sqr(z3 * z3 - (mmm2 / 2 - mmm1 / 2) * (mmm2 / 2 - mmm1 / 2))
'计算大小弧
Dim mmm4 As Double '小弧
Dim mmm5 As Double '大弧
Dim mmm6 As Double '角度(mmm3/z3)
Dim mmm11 As Double '每小节差
Dim mmm12 As Double '每大节差
Dim mmm13 As Integer '整数 '小实节数
Dim mmm14 As Integer '整数 '大实节数
Dim mmm15 As Double '小实节总差
Dim mmm16 As Double '大实节总差
mmm6 = Atn((mmm3 / z3) / Sqr(-(mmm3 / z3) * (mmm3 / z3) + 1)) * 180 / pi
mmm4 = 2 * mmm6 * mmm1 * pi / 360 '小弧
mmm5 = 2 * (180 - mmm6) * mmm2 * pi / 360 '大弧
mmm11 = (mmm1 * pi - (z1 * q_p)) / z1 '每小节差
mmm12 = (mmm2 * pi - (z2 * q_p)) / z2 '每大节差
'2确定齿数,双数
mmm13 = Int(Int(mmm4 / q_p + 1) / 2) * 2 '整数 '小实节数
mmm14 = Int(Int((mmm5 / q_p) + 1) / 2) * 2 '整数 '大实节数
mmm15 = mmm11 * mmm13 '小实节总差
mmm16 = mmm12 * mmm14 '大实节总差

作者: hatian7628 时间: 2009-11-18 09:48
收下了,谢过

作者: qszheng1 时间: 2009-11-18 09:50
太好了谢谢哥们有时间请你吃饭

作者: zhaojixing11 时间: 2009-11-18 09:52
衰不懂怎么安装

作者: 84a6654pxz 时间: 2009-11-18 09:52
非常感谢。找很久了。试试看

作者: 刁丰熙 时间: 2009-11-18 09:54
收藏了再说

作者: liluncai 时间: 2009-11-18 09:54
就算是盗版的也不错了啊！
12楼的别这么说人家！

作者: 天地男儿 时间: 2009-11-18 09:56
能与大家分享这么好的东西就真的很不错了，我下了，也谢楼主啦！

作者: 小东 时间: 2009-11-18 09:58
又用法的教程最好了！！

作者: ningking 时间: 2009-11-18 10:00
怎么运行错误呢？ WITH?

作者: amber505 时间: 2009-11-18 10:00
呵呵正在找这下能偷个懒减轻工作负担了

作者: kissnan 时间: 2009-11-18 10:02
可惜，不会用，又打不开

作者: bbeeyy 时间: 2009-11-18 10:02
收藏了，谢谢

作者: liberalistgo 时间: 2009-11-18 10:03
不知道什么原因，我的SW07用不了，提示如图

作者: sonyic 时间: 2009-11-18 10:03
下载看看

作者: rhjcome 时间: 2009-11-18 10:06
呵呵呵找了好久啊

作者: lslfhcnkfx 时间: 2009-11-18 10:07
真感谢楼主

作者: xuwankai 时间: 2009-11-18 10:08
多谢~下了以备不时之需！

作者: pybqfx 时间: 2009-11-18 10:08
共出来用就好了。谢谢。

作者: echo741111 时间: 2009-11-18 10:08
这个真强大，而且能分享才是最好的，不管哪里的

作者: 3869 时间: 2015-12-14 22:33
下载下来看看

作者: 五竹居士 时间: 2023-4-19 11:06
好像很古老的程序

作者: lynsun63 时间: 2023-4-30 15:32
感谢楼主分享，很不错！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)