碟形弹簧设计系统说明书

CAD课程设计说明书

设计题目：蝶形弹簧设计系统

学院：机械工程学院 班级：机122 学号：1210012051 姓名：周波

指导老师：张小萍

目录

一、课题名称和要求----------------------------------------------------------------------------2 二、系统结构框图-------------------------------------------------------------------------------2 三、计算部分程序流程图----------------------------------------------------------------------3

四、程序设计关键技术的阐述----------------------------------------------------------------4 五、设计举例-------------------------------------------------------------------------------------5 六、课程设计的体会和建议-------------------------------------------------------------------8 七、参考文献-------------------------------------------------------------------------------------8

1

一、 课题名称和要求

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

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

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

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

自动设计。

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

碟形弹簧设计系统 VB编程 Autolisp编程 开始界面 计算界面 输入已知条初选参数 计算参数 校核 校核合格 校核不合格 接口技术 返回 CAD绘制弹簧

2

三、计算部分程序流程图

VB程序 开始界面 计算界面 帮助界面 输入已知条件Fo、Fmax、do1 选择碟簧系列 输出碟簧参数 F3

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

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

Text4.Text = do1 即输入的导杆最大直径 Dim db1 As Database Dim rs1 As Recordset

a1 = Val(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