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

1、作业:构建三维形体线框模型,实现正投影变换和旋转变换要求打印:1、设计说明书参照毕业设计模板要求；2、程序清单； 目 录摘 要 11.构建三维线框模型22. VB演示33. 源程序代码5参考文献8摘 要 近年来随着计算机技术被广泛而迅速的普及，工程设计人员越来越青睐电脑辅助软件来解决实际工程问题。重要的是如何用计算机来表现实际的事物，应用数学的方法表示图形，是计算机易于接受并处理的数据模式。在计算机领域，图形编程是一个很重要的内容。Visual Basic 作为一门功能强大的计算机语言，为用户提供了一系列的属性、方法和控件，利用它们，可以轻松的实现一般图形绘制。关键词：CA

2、D/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,

3、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$Lo

4、op 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

5、(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

6、 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 iEnd SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer()Dim tx1() As Double, tx2() As DoublePicture1.Clsdian = txbh(

7、dian, 5)zbd = txbh(zbd, 5)tx1 = txbh(dian, 1)tx2 = txbh(zbd, 1)draw tx1, xian, 0, 0draw tx2, zbx, 0, 0tx1 = txbh(dian, 2)tx2 = txbh(zbd, 2)draw tx1, xian, 0, 0draw tx2, zbx, 0, 0tx1 = txbh(dian, 3)tx2 = txbh(zbd, 3)draw tx1, xian, 0, 0draw tx2, zbx, 0, 0tx1 = txbh(dian, 4)tx2 = txbh(zbd, 4)draw tx1,

8、 xian, 80, 60draw tx2, zbx, 80, 60End SubPrivate Sub 打开_Click()CommonDialog1.ShowOpenIf CommonDialog1.filename <> "" Then 初始化数据 CommonDialog1.filenameEnd IfEnd SubPrivate Sub 启动_Click()Timer1.Enabled = TrueEnd SubPrivate Sub 停止_Click()Timer1.Enabled = FalseEnd SubPrivate Sub 退出_Click

9、()EndEnd Sub2.窗体代码Function jzc(a() As Double, b() As Double) As Double()Dim c() As Doublec = aFor i = 1 To UBound(a, 1) For j = 1 To UBound(a, 2) c(i, j) = 0 For k = 1 To UBound(b, 1) c(i, j) = c(i, j) + a(i, k) * b(k, j) Next k Next jNext iFor i = 1 To UBound(c, 1) For j = 1 To UBound(c, 2) c(i, j)

10、 = c(i, j) / c(i, UBound(c, 2) Next jNext ijzc = cEnd Function'完成图形变换'a模型数据 b变换类型'b=1 正投影'b=2 侧投影'b=3 水平投影'b=4 正等侧投影'b=5 绕Z轴旋转5度Function txbh(dian() As Double, b As Integer) As Double()Dim bhjz(4, 4) As DoubleSelect Case b Case 1: bhlx$ = "正投影" Case 2: bhlx$ = &

11、quot;侧投影" Case 3: bhlx$ = "水平投影" Case 4: bhlx$ = "正等侧投影" Case 5: bhlx$ = "绕Z轴旋转5度"End SelectOpen App.Path + "bhjz.txt" For Input As #2Do Input #2, temp$Loop Until temp = bhlxFor i = 1 To 4 For j = 1 To 4 Input #2, bhjz(i, j) Next jNext iClose #2txbh = jzc(dian, bhjz)End