碟形弹簧设计系统说明书.doc

CAD课程设计说明书设计题目：蝶形弹簧设计系统学院：机械工程学院班级：机122学号：1210012051姓名：周波 指导老师：张小萍目录一、课题名称和要求-2二、系统结构框图-2三、计算部分程序流程图-3四、程序设计关键技术的阐述-4五、设计举例-5六、课程设计的体会和建议-8七、参考文献-81一、 课题名称和要求1、 设计题目：碟形弹簧设计系统2、 设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。3、 设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧自动设计。4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。二、 系统设计框图碟形弹簧设计系统VB编程Autolisp编程开始界面计算界面输入已知条件初选参数计算参数校核校核合格校核不合格接口技术CAD绘制弹簧返回2三、计算部分程序流程图VB程序开始界面计算界面帮助界面输入已知条件Fo、Fmax、do1选择碟簧系列计算、校核校核合格接口技术校核不合格返回，从新选择组合形式或碟簧系列CAD绘制碟簧退出输出碟簧参数F, 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 4If 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 ElseEnd 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 IfF1 = m * hi = CLng(Fmax / F1)foz = i * F1Hoz = i * HoH1 = Hoz - i * F1End 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,清华大学出