构建三维形体线框模型,实现正投影变换和旋转变换解析.doc

作业:构建三维形体线框模型,实现正投影变换和旋转变换 要求打印: 1、设计说明书参照《毕业设计》模板要求； 2、程序清单； 目 录 摘 要? 1 1.构建三维线框模型 2 2. VB演示 3 3. 源程序代码 5 参考文献 8 摘 要? 近年来随着计算机技术被广泛而迅速的普及，工程设计人员越来越青睐电脑辅助软件来解决实际工程问题。重要的是如何用计算机来表现实际的事物，应用数学的方法表示图形，是计算机易于接受并处理的数据模式。在计算机领域，图形编程是一个很重要的内容。Visual Basic 作为一门功能强大的计算机语言，为用户提供了一系列的属性、方法和控件，利用它们，可以轻松的实现一般图形绘制。 关键词：CAD/CAM Visual Basic 语言 1.构建三维线框模型 1、定义? 用线条表示轮廓、交线、棱线来反映形状的模型，提供形体表面不连续处的信息。 1.2模型 点6个 x y z 1. 0 0 0 2. 10 0 0 3. 0 10 0 4. 0 10 10 5. 0 0 10 6. 10 0 10 线9条 1. 1 2 2. 2 3 3. 3 4 4. 4 6 5. 2 6 6. 1 3 7. 4 5 8. 5 6 9. 1 5 2. VB演示 VB演示程序截图如下 演示效果图如下 3. 源程序代码 1.模块代码（通用） Option Base 1 Dim dian() As Double, xian() As Integer Dim zbd() As Double, zbx() As Integer Sub 初始化数据(filename As String) Open filename For Input As #1 Do Input #1, a$ Loop Until Left(a, 1) = 点 num = Val(Mid(a, 2)) ReDim dian(num, 4) For i = 1 To num Input #1, dian(i, 1), dian(i, 2), dian(i, 3) dian(i, 4) = 1 Next i Do Input #1, a$ Loop Until Left(a, 1) = 线 num = Val(Mid(a, 2)) ReDim xian(num, 2) For i = 1 To num Input #1, xian(i, 1), xian(i, 2) Next i Close #1 ReDim zbd(4, 4) ReDim zbx(3, 2) zbd(1, 1) = 0 zbd(1, 2) = 0 zbd(1, 3) = 0 zbd(1, 4) = 1 zbd(2, 1) = 20 zbd(2, 2) = 0 zbd(2, 3) = 0 zbd(2, 4) = 1 zbd(3, 1) = 0 zbd(3, 2) = 20 zbd(2, 1) = 20 zbd(2, 2) = 0 zbd(2, 3) = 0 zbd(2, 4) = 1 zbd(3, 1) = 0 zbd(3, 2) = 20 zbd(3, 3) = 0 zbd(3, 4) = 1 zbd(4, 1) = 0 zbd(4, 2) = 0 zbd(4, 3) = 20 zbd(4, 4) = 1 zbx(1, 1) = 1 zbx(1, 2) = 2 zbx(2, 1) = 1 zbx(2, 2) = 3 zbx(3, 1) = 1 zbx(3, 2) = 4 Timer1_Timer End Sub Sub draw(dian() As Double, xian() As Integer, X As Integer, Y As Integer) For i = 1 To UBound(xian, 1) Picture1.Line (X + dian(xian(i, 1), 1), Y - dian(xian(i, 1), 3))-(X + dian(xian(i, 2), 1), Y - dian(xian(i, 2), 3)) Next i End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() Dim tx1()