超级好用的链条绘制插件

wbp001

   经典图书

链传动Solidworks宏.rar (77.56 KB, 下载次数: 41)

2009-11-18 09:40 上传

点击文件名下载附件
下载积分: 金币 -1

适用于SW2007以上的版本，直接输入参数就可以生成链条零件，不过不是装配体 所以不能做动画。无需密码
宏工具在SW的工具 宏 里面

goodboy1019

适用于SW2007以上的版本？07版的能用吗

polo3456

   经典图书

太棒了，这几天画得我是头晕脑涨
而且还不收钱...
不能作动画可惜了

qiya12345

好东西。向楼主学习。不会二次开发

hpjin

   经典案例图书

看看是否各个地方人鬼和人

tv905oft06

不能做动画可惜了，我就想找一个能做链条动画的东西呢！！

闻人仙仪

   经典案例图书

好强！！！

vnglnvlnos

感谢楼主分享

zhou_cb21

楼主脸皮真厚,这不是你的.
信不信,
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

   经典图书

收下了,谢过

qszheng1

太好 了  谢谢 哥们  有时间请你吃饭

zhaojixing11

衰 不懂怎么安装

84a6654pxz

非常感谢。找很久了。试试看

刁丰熙

收藏了再说

liluncai

加入QQ群
参与讨论和学习

或扫描二维码加入

就算是盗版的也不错了啊！
12楼的别这么说人家！

天地男儿

   经典案例图书

能与大家分享这么好的东西就真的很不错了，我下了，也谢楼主啦！

小东

加入QQ群
参与讨论和学习

或扫描二维码加入

又用法的教程最好了！！

ningking

   经典案例图书

怎么运行错误 呢？ WITH?

amber505

呵呵 正在找 这下能偷个懒 减轻工作负担了

kissnan

可惜，不会用，又打不开