计算机辅助设计vb设计凸轮轮廓曲线_机械原理课程设计(编辑修改稿)

计算机辅助设计vb设计凸轮轮廓曲线_机械原理课程设计(编辑修改稿)内容摘要：

圆 XY(δ 0 + δ 1, 1), 偏距圆 XY(δ 0 + δ 1, 2)), amp。 HFFFF00 (x0, y0)(偏距圆 XY(δ 0 + δ 1 + δ 2, 1), 偏距圆 XY(δ 0 + δ 1 + δ 2, 2)), amp。 HFFFF00 End Sub Public Sub Second_Step() Dim j As Integer Dim i As Integer For i = 1 To i等分 DT0 Load DT0(i) Load DT0(i) Load DT0(i) Next For i = 1 To i等分 DT2 Load DT2(i) Load DT2(i) Load DT2(i) Next j = δ 0 / i等分 DT0 For i = 1 To i等分 DT0 DT0(i).X1 = XY(i * j, 1) DT0(i).X2 = XY(i * j, 1) DT0(i).Y1 = XY(i * j, 2) DT0(i).Y2 = DT0(i).Visible = True (x0, y0)(偏距圆 XY(i * j, 1), 偏距圆 XY(i * j, 2)), amp。 HFFFFFF DT0(i).X1 = 基圆 XY(i * j, 1) DT0(i).X2 = 偏距圆 XY(i * j, 1) DT0(i).Y1 = 基圆 XY(i * j, 2) DT0(i).Y2 = 偏距圆 XY(i * j, 2) DT0(i).Visible = True DT0(i).X1 = PointXY(i * j, 1) DT0(i).X2 = 基圆 XY(i * j, 1) DT0(i).Y1 = PointXY(i * j, 2) DT0(i).Y2 = 基圆 XY(i * j, 2) 39。 lin凸轮 DT0(i).Visible = True Next i j = δ 2 / i等分 DT2 For i = 1 To i等分 DT2 DT2(i).X1 = XY(δ 0 + δ 1 + (i 1) * j, 1) DT2(i).X2 = XY(δ 0 + δ 1 + (i 1) * j, 1) DT2(i).Y1 = XY(δ 0 + δ 1 + (i 1) * j, 2) DT2(i).Y2 = DT2(i).Visible = True (x0, y0)(偏距圆 XY(δ 0 + δ 1 + (i 1) * j, 1), _ 偏距圆 XY(δ 0 + δ 1 + (i 1) * j, 2)), amp。 HFFFFFF DT2(i).X1 = 基圆 XY(δ 0 + δ 1 + (i 1) * j, 1) DT2(i).X2 = 偏距圆 XY(δ 0 + δ 1 + (i 1) * j, 1) DT2(i).Y1 = 基圆 XY(δ 0 + δ 1 + (i 1) * j, 2) DT2(i).Y2 = 偏距圆 XY(δ 0 + δ 1 + (i 1) * j, 2) DT2(i).Visible = True DT2(i).X1 = PointXY(δ 0 + δ 1 + (i 1) * j, 1) 凸轮 DT2(i).X2 = 基圆 XY(δ 0 + δ 1 + (i 1) * j, 1) DT2(i).Y1 = PointXY(δ 0 + δ 1 + (i 1) * j, 2) DT2(i).Y2 = 基圆 XY(δ 0 + δ 1 + (i 1) * j, 2) 39。 lin凸轮 DT2(i).Visible = True Next i (偏距圆 XY(δ 0 + δ 1 + δ 2, 1), 偏距圆 XY(δ 0 + δ 1 + δ 2, 2)) _ (基圆 XY(δ 0 + δ 1 + δ 2, 1), 基圆 XY(δ 0 + δ 1 + δ 2, 2)), amp。 HFFFFFF End Sub Public Sub Third_Step() = True End Sub Public Sub Forth_step() = False = False .Enabled = False = False .Enabled = False .Enabled = False = True End Sub Frm 设置的代码： Option Explicit Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmd确定 _Click() r0 = txt_r0 h = txt_h δ0 = txt_δ0 δ1 = txt_δ1 δ2 = txt_δ2 δ3 = txt_δ3 r1 = txt_r1 e = txt_e If δ0 + δ1 + δ2 + δ3 360 Then MsgBox 给定的四个运动角之和应为 360度 txt_δ3 = 360 δ0 δ1 δ2 End If Call End Sub Private Sub Form_Load() txt_r0 = r0 txt_h = h txt_δ0 = δ0 txt_δ1 = δ1 txt_δ2 = δ2 txt_δ3 = δ3 txt_r1 = r1 txt_e = e End Sub Frm 凸轮设计的代码： Option Explicit Dim ii As Integer Dim jj As Integer Dim δ As Single Public Sub cmdReset_Click() Call init1 End Sub Private Sub cmd继续 _Click() Dim i As Integer If δ = 0 Then = False = False = False = False = False = False = False = False = False = False = False = False If i等分 DT0 0 Then For i = 1 To i等分 DT0 lin 凸轮 DT0(i).Visible = False lin 基圆 DT0(i).Visible = False lin 等分 DT0(i).Visible = False Next End If If i等分 DT2 0 Then For i = 1 To i等分 DT2 lin 凸轮 DT2(i).Visible = False lin 基圆 DT2(i).Visible = False lin 等分 DT2(i).Visible = False Next End If End If cmd继续 .Caption = 暂停 If Then cmd继续 .Caption = 继续 = Not End Sub Private Sub cmd设计 _Click() Dim i As Integer 39。 Cls Call init1 39。 If i等分 DT0 0 Then 39。 For i = 1 To i等分 DT0 39。 lin凸轮 DT0(i).Visible = False 39。 lin基 圆 DT0(i).Visible = False 39。 lin等分 DT0(i).Visible = False 39。 Next 39。 End If 39。 39。 If i等分 DT2 0 Then 39。 For i = 1 To i等分 DT2 39。 lin凸轮 DT2(i).Visible = False 39。 lin基圆 DT2(i).Visible = False 39。 lin等分 DT2(i).Visible = False 39。 Next 39。 End If If e = 0 Then If r1 = 0 Then frm对心设计 . = False frm对心设计 .Show Else If r1 = 0 Then frm偏置设计 . = False frm偏置设计 .Show End If End Sub Private Sub cmd设置 _Click() frm设置 .Show End Sub Private Sub cmd退出 _Click() End End Sub Private Sub Command1_Click() End Sub Private Sub Form_Load() 39。 = 8000 39。 = 8000 39。 = 1 Call init1 End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub Timer1_Timer() Dim i As Integer 39。 画基圆和回转中心 = 1 (x0, y0), r0, amp。 HFFamp。 (x0, y0), 10, amp。 HFFFFamp。 39。 画凸轮 For i = 0 To 360 Step 1 39。 理论轮廓。