碟形弹簧设计系统说明书

CAD课程设计说明书设计题目：蝶形弹簧设计系统

学院：机械工程学院

班级：机122

学号：1210012051

姓名：周波

指导老师：张小萍

目录

一、课题名称和要求----------------------------------------------------------------------------2

二、系统结构框图-------------------------------------------------------------------------------2

三、计算部分程序流程图----------------------------------------------------------------------3

四、程序设计关键技术的阐述----------------------------------------------------------------4

五、设计举例-------------------------------------------------------------------------------------5

六、课程设计的体会和建议-------------------------------------------------------------------8

七、参考文献-------------------------------------------------------------------------------------8

1

一、课题名称和要求

1、设计题目：碟形弹簧设计系统

2、设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开

发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。

3、设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧

自动设计。

4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。

二、系统设计框图

2

三、计算部分程序流程图

3

四、程序设计关键技术的阐述

VB程序部分

（1）、通过输入的导杆最大直径do1，根据所选择的碟簧系列，对数据库进行查询，以碟簧内径d为关键，检索其他有关参数。

方法：

Text4.Text = do1 即输入的导杆最大直径

Dim db1 As Database

Dim rs1 As Recordset

a1 = V al(Text4.Text) 付值a1为导杆最大直径

Set db1 = OpenDatabase(App.Path + "\db.mdb")

Set rs1 = db1.OpenRecordset("A")

rs1.Index = "K1"

rs1.Seek ">", a1 导杆直径与碟簧内径比较，内径要大于导杆最大直径，然后获取各个参数

d1 = rs1.Fields("外径D")

d2 = rs1.Fields("内径d")

t = rs1.Fields("厚度t")

h = rs1.Fields("压平时变形量h")

Ho = rs1.Fields("自由高度H")

F = rs1.Fields("F")

Fo1 = rs1.Fields("fo")

σom = rs1.Fields("σom")

σ1 = rs1.Fields("σⅡ或σⅢ")

（2）、Microsoft Access 中有系列A、系列B、系列C三张表格，根据Option1、Option2、Option3分别选择这三张表格。

方法：

If Option1.Value = True Then

End If

(3)、碟簧的组合形式分为单片碟、叠合形式、对合形式和复合形式，由Combo1选择所需要的形式，再根据选择的形式不同，分别采用不同的计算方法。

如对合形式：

If Combo1.Text = "对合组合" Then

Text22.Text = "1" '给n付初值

Fz = F

Km1 = Fo / Fc

4

If Option1.Value = True Then 碟簧为系列A

m = Km1 - 0.02

Else

End If

If Option2.Value = True Then 碟簧为系列B If 0 <= Km1 <= 0.5 Then

m = Km1 - 0.1

Else

End If

If 0.5 <= Km1 <= 0.82 Then

m = (Km1 - 0.14) / 0.9

Else

End If

If 0.82 <= Km1 <= 1 Then

m = (Km1 - 0.28) / 0.72

End If

Else

End If

If Option3.Value = True Then 碟簧为系列C m = (2.27 - Sqr(5.0729 - 5 * Km1)) / 2.5

End If

F1 = m * h

i = CLng(Fmax / F1)

foz = i * F1

Hoz = i * Ho

H1 = Hoz - i * F1

End If

五、设计举例

(1)、运行程序

5

（2）、输入已知条件

工作载荷Fo = 5000 N

最大变形量Fmax = 10 mm

导杆最大直径do1 = 20 mm

选择系列A

点“初选”，选择碟簧参数

6

（3）、计算

组合形式：

对合组合

（4）、校核

7

六、课程设计的体会和建议

通过两个星期的《设计系统》的设计，我对VB程序有了一个更加深刻的理解，特别对于读取数据库的VB语言更加明晰，还有VB和AutoCAD程序间的接口技术运用更加熟练。

这次课程设计我主要是负责设计计算部分，采用VB编程。在编程前，我首先了解了碟形弹簧的系列参数、组合形式，以及对应的计算过程和校核。在编程过程中，由于参数较多，对应的计算过程也就较麻烦，程序语言比较繁琐。在编程过程中，我遇到的许多问题，以前不是很熟悉的VB语言也慢慢地熟悉、牢记。运行程序时，根据输出的数据，会有很多相应的提示窗口弹出，根据提示的信息完成接下去的运行步骤，得到合适的结果。在编程过程中遇到难题的时候，我会仔细查阅相关资料，和同学们讨论，向有能力的人请教，顺利地完成了这次课程设计。经过这几天的课程设计，我对VB编程的理解更加准确。同时，在VB与Lisp的链接中，我也更加的了解了Autolisp语言。

这次课程设计我受益匪浅，我了解了许多以前不知道的专业知识，把以前学过的知识又熟悉了一遍，对知识掌握地更加牢靠了。

七、参考文献

1、崔洪斌，等，计算机辅助设计基础及应用[M],清华大学出版社，2004.7

2、邱宣怀，等，机械设计[M]，高等教育出版社，1997

3、机械设计手册编委会，机械设计手册[M]，机械工业出版社，2007.7

4、秦大同，谢里阳，等，机械设计手册[M]，北京-化学工业出版社，2011.1

8