两圆柱面相交的展开图设计系统.docVIP

目录 一、设计题目：两圆柱面相交的展开图设计系统 …………...1 二、系统结构框图…………………………………………………1 三、程序流程图…………………………………………………….2 四、设计关键技术………………………………………………….3 五、设计举例………………………………………………………..6 六、 设计体会………………………………………………………9 参考文献……………………………………………………………..10 说明书 一、设计题目：两圆柱面相交的展开图设计系统 1.目的： 通过“两圆柱面相交的展开图设计系统”的开发，进一步掌握和理解一般CAD系统的开发方法和流程。进一步熟悉工程数据的处理方法、自动绘图的实现方法以及软件的接口方法。 2.要求： 完成“两圆柱面相交的展开图设计系统”的开发，根据该设计系统能进行简单的展开图设计。 3.设计内容： 完成“两圆柱面相交的展开图设计系统”的倾斜交叉两圆柱面的展开图部分的程序设计。 二、系统结构框图 倾斜交叉两圆柱面的展开图系统的结构框图如图1： 图 1 三、程序流程图 1.VB程序流程图如图2： 2.autolisp程序流程图如图3： 第 1 页 图 2 图 3 第 2 页 四、设计关键技术 1.VB程序设计的关键技术 (1) 与实际参数对应的变量。 实际参数 VB中对应的变量 D1 D1 D2 D2 H1 H1 H2 H2 e E φ alf (2) 生成点与存储方式。 For k = 0 To 100 Step 0.1 a = 0.01 * k * 2 * pi b = 0.01 * k * 2 * pi p = R2 ^ 2 - (R1 * Cos(a) - e) ^ 2 m = R1 ^ 2 - (R2 * Cos(a) + e) ^ 2 If p = 0 Then z1 = (-R1 * Sin(a) * Cos(alf) + Sqr(p)) / Sin(alf) s = R1 * a q1 = z1 * Cos(alf) - R1 * Sin(a) * Sin(alf) If a = 0 And a = pi Then If z1 = -0.5 * H1 And z1 = 0.5 * H1 And q1 = -0.5 * H2 And q1 = 0.5 * H2 Then X1(i1) = s Y1(i1) = z1 i1 = i1 + 1 End If ElseIf a = pi And a = 2 * pi Then If z1 = -0.5 * H1 And z1 = 0.5 * H1 And q1 = -0.5 * H2 And q1 = 0.5 * H2 Then X2(i2) = s Y2(i2) = z1 i2 = i2 + 1 End If End If Else End If If m 0 Then 第3页 s2 = R2 * b z3 =