OpenGL VB.docx

1、OpenGL VB求OPENGL VB STL 文件制作方法？悬赏分：40 - 提问时间2007-5-22 16:32+引用别人的文章+ 三维模型的显示 目前对三维图形程序的开发大多是基于OpenGL来实现的，OpenGL实际上是一个独立于窗口系统和操作系统的开放式三维图形标准，得到了众多计算机厂商的支持。作为一个优秀的三维图形接口，OpenGL提供了丰富的绘图命令，利用这些命令能够开发出高性能、交互式的三维图形应用程序。它与VC有着紧密的开发接口，但由于VC对于一般非计算机专业的工程技术人员来说难以掌握，因而给工程领域的仿真程序设计带来了很大的不便。但目前支持VB等开发工具的OpenGL开发

2、库也开始出现。本文就是基于VBOpenGL（vbogl.tlb）库来实现的，这是一个可免费使用的第三方库，它封装了大量的底层OpenGL库函数，很大程度上简化了开发工作。 在VB中建立三维图形环境之前，首先要在“工程”菜单下通过“引用”子菜单下加入VBOpenGL库，然后在窗体上加入一个PictureBox控件作为三维模型的显示和操作区域。 作为工程应用的虚拟设计或仿真程序，其三维模型可通过一般的三维造型软件如Solidworks来设计，然后通过软件提供的图形接口输出为中性文件。目前主流的三维造型软件都支持多种标准文件格式，其中STL 文件是一种可读性较强的文件格式，适合在工程仿真程序中使用。

3、STL 文件格式最早是作为快速成型领域中的接口标准，已被广泛应用于各种三维软件中，很多主流的商用三维软件都支持STL 文件的输入输出。STL模型是以三角形集合来表示物体外轮廓形状的几何模型，其中每个三角形面片有四个数据项表示，即三角形的三个顶点坐标和三角形面片的外法线矢量，STL 文件即为多个三角形面片的集合。 因此在VB环境中可通过读入STL 文件并在绘图空间中重现的方法来显示三维模型。首先对读入的STL 文件按行分解，从中解析出每个面元，并存储到结构体数组中，接下来的工作就是通过VBOpenGL中的glColor3d函数对每个面元进行渲染和着色，并把渲染的结果以图形的形式填充到Pictur

4、eBox控件的绘图区中，最终实现整个模型的显示。需要说明的是在显示三维模型之前，必须对VBOpenGL中的初始环境进行定义。 +我现在看了后 有很多的不明白 一个是 保存后的 STL文件怎么导入 还有在正确导入OPENGL后 怎么做 才能让做好 模型进行运动？ 我目的是做个 机械手的 运动仿真 我打算做个独立程序 我个人的思路是 在 SOLIDWORKS 中建立好模型 并装配好 然后把他保存成 STL 文件 导入 VB中进行编辑 最后 做 菜单等 最大的问题：1 不知道 怎么导入 2 导入后怎么进行编辑 3 OPENGL怎么进行运动仿真如何制作三维空间vb悬赏分：20 - 解决时间：2007-

5、12-2 09:53我不想研究那麻烦的三维转二维的公式，vb中有没有什么方法，有没有一个对象，可以直接画三维图形（即知道一个在三维上的点，在屏幕上显示出来） 用dx如果行的话，请具体给出，谢谢。三维模型的显示 目前对三维图形程序的开发大多是基于OpenGL来实现的，OpenGL实际上是一个独立于窗口系统和操作系统的开放式三维图形标准，得到了众多计算机厂商的支持。作为一个优秀的三维图形接口，OpenGL提供了丰富的绘图命令，利用这些命令能够开发出高性能、交互式的三维图形应用程序。它与VC有着紧密的开发接口，但由于VC对于一般非计算机专业的工程技术人员来说难以掌握，因而给工程领域的仿真程序设计带来

6、了很大的不便。但目前支持VB等开发工具的OpenGL开发库也开始出现。本文就是基于VBOpenGL（vbogl.tlb）库来实现的，这是一个可免费使用的第三方库，它封装了大量的底层OpenGL库函数，很大程度上简化了开发工作。 在VB中建立三维图形环境之前，首先要在“工程”菜单下通过“引用”子菜单下加入VBOpenGL库，然后在窗体上加入一个PictureBox控件作为三维模型的显示和操作区域。 作为工程应用的虚拟设计或仿真程序，其三维模型可通过一般的三维造型软件如Solidworks来设计，然后通过软件提供的图形接口输出为中性文件。目前主流的三维造型软件都支持多种标准文件格式，其中STL 文

7、件是一种可读性较强的文件格式，适合在工程仿真程序中使用。STL 文件格式最早是作为快速成型领域中的接口标准，已被广泛应用于各种三维软件中，很多主流的商用三维软件都支持STL 文件的输入输出。STL模型是以三角形集合来表示物体外轮廓形状的几何模型，其中每个三角形面片有四个数据项表示，即三角形的三个顶点坐标和三角形面片的外法线矢量，STL 文件即为多个三角形面片的集合。 因此在VB环境中可通过读入STL 文件并在绘图空间中重现的方法来显示三维模型。首先对读入的STL 文件按行分解，从中解析出每个面元，并存储到结构体数组中，接下来的工作就是通过VBOpenGL中的glColor3d函数对每个面元进行

8、渲染和着色，并把渲染的结果以图形的形式填充到PictureBox控件的绘图区中，最终实现整个模型的显示。需要说明的是在显示三维模型之前，必须对VBOpenGL中的初始环境进行定义。 +我现在看了后 有很多的不明白 一个是 保存后的 STL文件怎么导入 还有在正确导入OPENGL后 怎么做 才能让做好 模型进行运动？ 我目的是做个 机械手的 运动仿真 我打算做个独立程序 我个人的思路是 在 SOLIDWORKS 中建立好模型 并装配好 然后把他保存成 STL 文件 导入 VB中进行编辑 最后 做 菜单等用VB画圆、正方形、长方形、球、正方体、长方体悬赏分：50 - 解决时间：2008-3-3 2

9、2:20要编程的内容过程问题补充：最好编程简单点 否则以我的程度 怕看不懂画圆 VERSION 5.00 Begin VB.Form FMain BorderStyle = 1 Fixed Single Caption = Form1 ClientHeight = 5205 ClientLeft = 45 ClientTop = 330 ClientWidth = 7035 LinkTopic = Form1 MaxButton = 0 False MinButton = 0 False ScaleHeight = 5205 ScaleWidth = 7035 StartUpPosition

10、= 2 屏幕中心 Begin VB.CheckBox chkA Caption = 自动反转 Height = 375 Left = 5280 TabIndex = 5 Top = 3600 Width = 1695 End Begin VB.CheckBox chkAuto Caption = 自动旋转 Height = 255 Left = 5280 TabIndex = 4 Top = 3240 Width = 1575 End Begin VB.Timer tmrTurn Enabled = 0 False Interval = 100 Left = 5280 Top = 4080 E

11、nd Begin VB.PictureBox picDraw Height = 5000 Left = 120 ScaleHeight = 4935 ScaleWidth = 4935 TabIndex = 3 Top = 120 Width = 5000 End Begin VB.CommandButton cmdTurnAnti Caption = 正向 Height = 495 Left = 5280 TabIndex = 2 Top = 1200 Width = 1575 End Begin VB.TextBox txtAngle Height = 375 Left = 5280 Ta

12、bIndex = 1 Text = 30 Top = 120 Width = 1575 End Begin VB.CommandButton cmdTurn Caption = 反向 Height = 495 Left = 5280 TabIndex = 0 Top = 600 Width = 1575 End End Attribute VB_Name = FMain Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute V

13、B_Exposed = False Option Explicit Private Const rPI As Single = 3.14159265358979 Private iAngle As Integer 转过角度 Private Sub chkAuto_Click() tmrTurn.Enabled = chkAuto.Value End Sub Private Sub cmdTurn_Click() iAngle = iAngle + Val(txtAngle.Text) Call Draw End Sub Private Sub cmdTurnAnti_Click() iAngl

14、e = iAngle - Val(txtAngle.Text) Call Draw End Sub Private Sub Form_Load() picDraw.Scale (-1, 1)-(1, -1) 中心设为原点 picDraw.DrawWidth = 5 加粗 End Sub Private Sub Draw() picDraw.Cls picDraw.Line (0, 0)-(Cos(iAngle / 180 * rPI), Sin(iAngle / 180 * rPI) End Sub Private Sub tmrTurn_Timer() If chkA.Value = 0 T

15、hen Call cmdTurnAnti_Click Else Call cmdTurn_Click End If End Sub 矩形 Public Sub DrawRectangle(ByVal Width As Long, ByVal Height As Long, Optional Top As Long, Optional Left As Long) Line (Left, Top)-(Left + Width, Top) Line (Left, Top)-(Left, Top + Height) Line (Left, Top + Height)-(Left + Width, To

16、p + Height) Line (Left + Width, Top)-(Left + Width, Top + Height) End Sub 球 定义一个数组记录某一个值是不是已经被使用 比如有10个数供选择,那就定义a10,赋初值0,表示没有使用,当抽取一个号码后,比如是5,那就令a5-1=1,求救已经使用,每次取数时判断一下取得的数i对应的ai是否等于0就可以了. 长方体 Private Type xyz 定义3D坐标类型 y As Single z As Single End Type Private xyz1() As xyz Public x0 As Single, y0 As

17、 Single, x1 As Single, y1 As Single Private Sub Check1_Click() If x1 = 0 Or y1 = 0 Then Exit Sub End If If Check1.Value = 1 Then 如果选择显示空间坐标轴，就画出空间坐标轴 Line (x1, y1)-(x1, y1 - 6400) Line (x1, y1)-(x1 + 6400, y1) Line (x1, y1)-(x1 - 4050, y1 + 4050) Line (x1, y1 - 6400)-(x1 - 200, y1 - 6200) Line (x1,

18、y1 - 6400)-(x1 + 200, y1 - 6200) Line (x1 + 6400, y1)-(x1 + 6200, y1 + 200) Line (x1 + 6400, y1)-(x1 + 6200, y1 - 200) Line (x1 - 4050, y1 + 4050)-(x1 - 4050, y1 + 3850) Line (x1 - 4050, y1 + 4050)-(x1 - 3850, y1 + 4050) Else Cls End If End Sub Private Sub Command1_Click() drawpnt Val(Text1.Text), V

19、al(Text2.Text), Val(Text3.Text) 这是在三维空间画点的事件 End Sub Private Sub Command2_Click() Call VScroll1_Change(0) 画长方体 End Sub Private Sub Command3_Click() dmove 0, 500, 0 移动 End Sub Private Sub Command4_Click() dmove -500, 0, 0 移动 End Sub Private Sub Command5_Click() dmove 500, 0, 0 移动 End Sub Private Sub

20、Command6_Click() dmove 0, -500, 0 移动 End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Cls x0 = x y0 = y x1 = x y1 = y Call Check1_Click ReDim xyz1(0 To 1) xyz1(0).y = x xyz1(0).z = y PSet (x, y) 在程序上点击鼠标画出空间坐标轴，并记录原点 End Sub Sub drawpnt(dx As Single, dy

21、 As Single, dz As Single) Dim dxy As Single dxy = Fix(dx * Sqr(2) / 2) xyz1(0).y = x0 - dxy + dy xyz1(0).z = y0 + dxy - dz PSet (xyz1(0).y, xyz1(0).z) 画点的过程 End Sub Sub dline(dx1 As Single, dy1 As Single, dz1 As Single, dx2 As Single, dy2 As Single, dz2 As Single) Dim dxy1 As Single, dxy2 As Single

22、dxy1 = Fix(dx1 * Sqr(2) / 2) dxy2 = Fix(dx2 * Sqr(2) / 2) xyz1(0).y = x0 - dxy1 + dy1 xyz1(0).z = y0 + dxy1 - dz1 xyz1(1).y = x0 - dxy2 + dy2 xyz1(1).z = y0 + dxy2 - dz2 Line (xyz1(0).y, xyz1(0).z)-(xyz1(1).y, xyz1(1).z) 划线的过程 End Sub Private Sub VScroll1_Change(index As Integer) If x0 = 0 Or y0 = 0

23、 Then Exit Sub End If Cls Call Check1_Click Dim a As Single, b As Single, c As Single a = VScroll1(0).Value * 900 b = VScroll1(1).Value * 900 c = VScroll1(2).Value * 900 square a, b, c 根据a,b,c(长，宽，高)来画长方体的过程 End Sub Sub square(a As Single, b As Single, c As Single) dline 0, 0, 0, a, 0, 0 dline 0, 0,

24、 0, 0, b, 0 dline 0, 0, 0, 0, 0, c dline a, 0, 0, a, b, 0 dline a, 0, 0, a, 0, c dline 0, b, 0, a, b, 0 dline 0, b, 0, 0, b, c dline 0, 0, c, a, 0, c dline 0, 0, c, 0, b, c dline a, b, c, a, b, 0 dline a, b, c, a, 0, c dline a, b, c, 0, b, c End Sub Sub dmove(dx As Single, dy As Single, dz As Single

25、) If x0 = 0 Or y0 = 0 Then Exit Sub End If Cls Call Check1_Click x0 = x0 + dx y0 = y0 - dy Call VScroll1_Change(0) 移动长方体的过程 End Sub 正方体和长方体的原理一样，写不动啦！在VB环境中操作三维模型的实现方法目前在虚拟设计和数控仿真程序的设计中，多采用VC和三维造型核心来实现对三维模型的显示和动态操作。由于VC较难掌握，涉及到图形渲染和操作的部分更是如此，而且三维造型核心一般需要从国外购买，对于一般的开发应用来说因成本太高而缺乏可行性。而VB作为一种完全面向对象的开发工

26、具，在界面设计和数据库方面具有相当的优势，一般的设计人员也能够学习掌握，但是，在图形设计尤其是三维模型的显示和操作方面的研究和应用却不多。因此研究利用VB来实现三维模型的图形设计，将会在虚拟设计和仿真程序中发挥巨大的作用。 三维模型的显示 目前对三维图形程序的开发大多是基于OpenGL来实现的，OpenGL实际上是一个独立于窗口系统和操作系统的开放式三维图形标准，得到了众多计算机厂商的支持。作为一个优秀的三维图形接口，OpenGL提供了丰富的绘图命令，利用这些命令能够开发出高性能、交互式的三维图形应用程序。它与VC有着紧密的开发接口，但由于VC对于一般非计算机专业的工程技术人员来说难以掌握，因

27、而给工程领域的仿真程序设计带来了很大的不便。但目前支持VB等开发工具的OpenGL开发库也开始出现。本文就是基于VBOpenGL（vbogl.tlb）库来实现的，这是一个可免费使用的第三方库，它封装了大量的底层OpenGL库函数，很大程度上简化了开发工作。 在VB中建立三维图形环境之前，首先要在“工程”菜单下通过“引用”子菜单下加入VBOpenGL库，然后在窗体上加入一个PictureBox控件作为三维模型的显示和操作区域。 作为工程应用的虚拟设计或仿真程序，其三维模型可通过一般的三维造型软件如Solidworks来设计，然后通过软件提供的图形接口输出为中性文件。目前主流的三维造型软件都支持多

28、种标准文件格式，其中STL文件是一种可读性较强的文件格式，适合在工程仿真程序中使用。STL文件格式最早是作为快速成型领域中的接口标准，已被广泛应用于各种三维软件中，很多主流的商用三维软件都支持STL文件的输入输出。STL模型是以三角形集合来表示物体外轮廓形状的几何模型，其中每个三角形面片有四个数据项表示，即三角形的三个顶点坐标和三角形面片的外法线矢量，STL文件即为多个三角形面片的集合。 因此在VB环境中可通过读入STL文件并在绘图空间中重现的方法来显示三维模型。首先对读入的STL文件按行分解，从中解析出每个面元，并存储到结构体数组中，接下来的工作就是通过VBOpenGL中的glColor3d

29、函数对每个面元进行渲染和着色，并把渲染的结果以图形的形式填充到PictureBox控件的绘图区中，最终实现整个模型的显示。需要说明的是在显示三维模型之前，必须对VBOpenGL中的初始环境进行定义。 三维模型的操作方法 （1）放大和缩小操作对三维模型的操作一般包括放大、缩小、旋转和平移等操作，其中放大、缩小操作可通过同一个鼠标事件来驱动，例如当光标向上移动时使模型缩小，而光标向下移动时则使模型放大。这可以通过调整Opengl环境中的景深来实现。其中SVposY是光标移动过程中的上一个位置的纵坐标，而Y为当前光标的纵坐标，Zoom为模型的景深，step_zoom为光标移动一个基本单位时景深的变化值，它可通过程序的实际需要来设定。以下是放大缩小操作的程序代码。 IfYSposYThen Zoom=Zoom-step_zoom缩小 Else Zoom=Zoom+step_zoom放大 EndIf IfZoomdiffyT