CAD课程设计圆柱螺拉伸弹簧.docVIP

南通大学 CAD课程设计说明书 --设计计算部分的程序设计 设计题目：圆柱螺旋拉伸弹簧 学院：机械工程学院 班级：机092 学生姓名：李宁 学号：0910012048 设计日期：2013年1月16日 目录 一、课题名称和要求-------------------------------------------------------------------3 二、系统结构框图-----------------------------------------------------------------------3 三、程序流程图---------------------------------------------------------------------------4 四、程序设计关键技术的阐述----------------------------------------------------5 五、设计举例------------------------------------------------------------------------------9 六、课程设计的体会和建议-------------------------------------------------------8 七、参考文献------------------------------------------------------------------------------8 设计课题 题目：圆柱螺旋拉伸弹簧设计系统。 目的：通过“圆柱螺旋拉伸弹簧设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。 任务：完成“圆柱螺旋拉伸弹簧设计系统”的开发，根据该系 统能进行简单的圆柱螺旋拉伸弹簧自动设计。 要求：1、完成所有设计资料的程序处理，建立有关设计参数数据文件。 2、完成圆柱螺旋拉伸弹簧设计系统的设计、计算、分析程序。 3、完成系统界面设计、文档设计。 4、完成课程设计说明书。 系统结构框图 系统可以根据弹簧的不同旋向情况，选择不同形式拉伸弹簧，通过计算得出选用的标准件的参数，并对弹簧进行校核，选择合适的值，利用script脚本文件，自动加载Autolisp文件到AUTOCAD中，绘制出所选择的图形，实现了一键操作。 程序流程图： 四、程序设计关键技术 （1）通过VB或者Access建立数据库 通过VB建立数据库 打开VB，进入“外接程序（A）”，打开“可视化数据管理（V）”，单击左上方“文件”，选择新建Access数据库， 选择新建表可进入如下图所示界面，进行数据输入。 2. （2）VB程序开发部分 （1）通过预估的工作极限载荷对数据库进行查询，比对，取到与预估值最接近的值作为标准的工作极限载荷Pj 方法：载荷载入Microsoft DAO 3.6 Object Library Pj0 = Pn / 0.8（Pj0为预估值） Dim Source As String 数据库文件名 Source = TH.mdb Dim conn1 As ADODB.Connection Set conn1 = New ADODB.Connection conn1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Source conn1.Open Set rst1 = New ADODB.Recordset Dim mysql As String mysql = select * from A rst1.Open mysql, conn1, 3, 2 rst1.MoveFirst Do Until rst1!工作极限载荷Pj = Pj0 直到找到比插入数据小的数当中最小的数 rst1.MoveNext Loop Pj = Pj1（比较得出的最接近工作极限载荷值） （2）通过索引Pj获得其他弹簧参数值（工作极限载荷下的单圈变形量fj，单圈刚度Pd，初拉力Po，材料直径d，弹簧中径D） D = rst1!弹簧中径D F = rst1!工作极限载荷下的单圈变形量fj Pd = rst1!单圈刚度Pd Po = rst1!初拉力Po D0 = rst1!材料直径d Pj1 = rst1!工作极限载荷Pj （3）模块接口技术 〈1〉VB、Access接口技术 Dim Source