构建三维形体线框模型_实现正投影变换与旋转变换.docVIP

PAGE 作业:构建三维形体线框模型,实现正投影变换和旋转变换要求打印:1、设计说明书参照《毕业设计》模板要求；2、程序清单； 目 录TOC \o 1-3 \h \u HYPERLINK \l _Toc23593 摘 要? PAGEREF _Toc23593 1 HYPERLINK \l _Toc31475 1.构建三维线框模型 PAGEREF _Toc31475 2 HYPERLINK \l _Toc32247 2. VB演示 PAGEREF _Toc32247 3 HYPERLINK \l _Toc2225 3. 源程序代码 PAGEREF _Toc2225 5 HYPERLINK \l _Toc22373 参考文献 PAGEREF _Toc22373 8PAGE 1摘 要?近年来随着计算机技术被广泛而迅速的普及，工程设计人员越来越青睐电脑辅助软件来解决实际工程问题。重要的是如何用计算机来表现实际的事物，应用数学的方法表示图形，是计算机易于接受并处理的数据模式。在计算机领域，图形编程是一个很重要的内容。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 52. VB演示VB演示程序截图如下 演示效果图如下 3. 源程序代码1.模块代码（通用）Option Base 1Dim dian() As Double, xian() As IntegerDim zbd() As Double, zbx() As IntegerSub 初始化数据(filename As String)Open filename For Input As #1Do 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) = 1Next iDo 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 iClose #1ReDim zbd(4, 4)ReDim zbx(3, 2)zbd(1, 1) = 0zbd(1, 2) = 0zbd(1, 3) = 0zbd(1, 4) = 1zbd(2, 1) = 20zbd(2, 2) = 0zbd(2, 3) = 0zbd(2, 4) = 1zbd(3, 1) = 0zbd(3, 2) = 20zbd(2, 1) = 20zbd(2, 2) = 0zbd(2, 3) = 0zbd(2, 4) = 1zbd(3, 1) = 0zbd(3, 2) = 20zbd(3, 3) = 0zbd(3, 4) = 1zbd(4, 1) = 0zbd(4, 2) = 0zbd(4, 3) = 20zbd(4, 4) = 1zbx(1, 1) = 1zbx(1, 2) = 2zbx(2, 1) = 1zbx(2, 2) = 3zbx(3, 1) = 1zbx(3, 2) = 4Timer1_TimerEnd SubSub 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),