碟形弹簧设计系统说明书

《碟形弹簧设计系统说明书》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CAD课程设计说明书设计题目：蝶形弹簧设计系统学院：机械工程学院班级：机122学号：1210012051姓名：周波指导老师：张小萍目录一、课题名称和要求----------------------------------------------------------------------------2二、系统结构框图-------------------------------------------------------------------------------2三、计算部分程序流程图-----

2、-----------------------------------------------------------------3四、程序设计关键技术的阐述----------------------------------------------------------------4五、设计举例-------------------------------------------------------------------------------------5六、课程设计的体会和建议---------

3、----------------------------------------------------------8七、参考文献-------------------------------------------------------------------------------------81一、课题名称和要求1、设计题目：碟形弹簧设计系统2、设计目的：通过“碟形弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。

4、3、设计要求：完成“碟形弹簧设计系统”的开发，根据该设计系统能进行简单的碟形弹簧自动设计。4、设计内容：完成“碟形弹簧设计系统”设计计算部分的程序设计。二、系统设计框图碟形弹簧设计系统VB编程Autolisp编程开始界面计算界面输入已知条件初选参数计算参数校核校核合格校核不合格接口技术CAD绘制弹簧返回2三、计算部分程序流程图VB程序开始界面计算界面帮助界面输入已知条件Fo、Fmax、do1选择碟簧系列计算、校核校核合格接口技术校核不合格返回，从新选择组合形式或碟簧系列CAD绘制碟簧退出输出碟簧参数F

5、根据提示框，可选择其他系列或选择叠合、复合形式3四、程序设计关键技术的阐述VB程序部分（1）、通过输入的导杆最大直径do1，根据所选择的碟簧系列，对数据库进行查询，以碟簧内径d为关键，检索其他有关参数。方法：Text4.Text=do1即输入的导杆最大直径Dimdb1AsDatabaseDimrs1AsRecordseta1=Val(Text4.Text)付值a1为导杆最大直径Setdb1=OpenDatabase(App.Path+"db.mdb")Setrs1=db1.OpenRecordset("A"

6、)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）、Microsof

7、tAccess中有系列A、系列B、系列C三张表格，根据Option1、Option2、Option3分别选择这三张表格。方法：IfOption1.Value=TrueThenEndIf(3)、碟簧的组合形式分为单片碟、叠合形式、对合形式和复合形式，由Combo1选择所需要的形式，再根据选择的形式不同，分别采用不同的计算方法。如对合形式：IfCombo1.Text="对合组合"ThenText22.Text="1"'给n付初值Fz=FKm1=Fo/Fc4IfOption1.Value=TrueThen碟簧为系列

8、Am=Km1-0.02ElseEndIfIfOption2.Value=TrueThen碟簧为系列BIf0<=Km1<=0.5Thenm=Km1-0.1ElseEndIfIf0.5<=Km1<=0.82Thenm=(Km1-0.14)/0.9ElseEndIfIf0.82<=Km1<=1Thenm=(Km1-0.28)/0.72EndIfElseEndIfIfOption3.Value=TrueTh