vb.net三维画布 vb绘制三维图

VB.net怎么进行实时的3D曲面绘图

这份文件列出了参数在PowerMILL提供。 表1 列出一般PowerMILL参数, 表2 列出了有效的PowerMILL安装额外的参数表。 表1。 PowerMILL参数。 标识符说明 (AdditionalStock)最大厚度的股票估计要去除刀具路径。这是用来作为一种辅助手

创新互联建站专注于大荔企业网站建设,响应式网站,商城开发。大荔网站建设公司,为大荔等地区提供建站服务。全流程按需定制,专业设计,全程项目跟踪,创新互联建站专业和态度为您提供的服务

VB.net可以开发小型3D图形显示软件吗?

可以借助DirectX来编程。免费3D引擎可不好找,一般来说速度比不上硬件加速后的DX,尤其令人头疼的是一般都没有针对VB的文档,LZ有这方面理想的话,自己写一个吧……

我不得不承认在VB上写DirectX的教程相当难找!如果LZ想深入研究三维图形问题,C++一定要学,就算不能用C++编程,起码要能把C++程序翻译成VB程序。

我自己学会DX编程花了两三个月(很浅)。编这样一个程序难度是有点大的。

工具:DirectX9和其针对VB的库(项目-添加引用。.NET库里DX库一般都有),VB不知道现在支不支持DX10以上的版本,不过9绝对够用了。

思路:一切3D图形都是由三角形拼成的。矩形挖掉一个圆孔可不是一个方便画的图形,我估计至少得有24个三角形。你需要记录这些点的坐标,或者干脆把它们写在文件里,到时读出来。

这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面),不一定能编译,可以参考一下。

Imports Microsoft.DirectX '一定要~

Public Class FormMain

'Direct3D Startup

Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数,例如全屏还是窗口等

Public MyDevice As Direct3D.Device ‘DX基本设备,画图就靠它。

'Matrices

Dim matWorld, matView, matProj As Matrix '世界位置矩阵,摄像机位置矩阵和透视矩阵,数学要学好啊。

'mesh

Public MyPlane as Direct3D.Mesh ’我们的物体

Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放顶点位置的数组

#Region "DX Core"

Public Sub InitDeviceObjects()

With d3dpp ‘以下请照抄。

.Windowed = True ‘不全屏。

.SwapEffect = Direct3D.SwapEffect.Discard ’双缓冲交换效果。请百度“双缓冲”

.BackBufferFormat = Direct3D.Format.Unknown

.EnableAutoDepthStencil = True ’让DX自动管理深度缓冲

.AutoDepthStencilFormat = Direct3D.DepthFormat.D16

End With

MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '创建DX设备啦!以下两句请照抄。

MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z缓冲

MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法线归一化,请看相关数学书籍。

End Sub

Public Sub RestoreDeviceObjects()

Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’顶点索引信息。

Dim AttrTable(1) As Direct3D.AttributeRange ‘顶点分组属性表

AttrTable(0).AttributeId = 0

AttrTable(0).FaceStart = 0

AttrTable(0).FaceCount = 2 ’有两个三角形

AttrTable(0).VertexStart = 0

AttrTable(0).VertexCount = 4 ‘四个点

‘顶点坐标信息。

VBPlane(0) = New Direct3D.CustomVertex.PositionNormalTextured(-500, -500, 0, 0, 0, 1, 0, 0)

VBPlane(1) = New Direct3D.CustomVertex.PositionNormalTextured(500, -500, 0, 0, 0, 1, 1, 0)

VBPlane(2) = New Direct3D.CustomVertex.PositionNormalTextured(-500, 500, 0, 0, 0, 1, 0, 1)

VBPlane(3) = New Direct3D.CustomVertex.PositionNormalTextured(500, 500, 0, 0, 0, 1, 1, 1)

MyPlane = New Direct3D.Mesh(2, 4, Direct3D.MeshFlags.Managed, Direct3D.VertexFormats.Position + Direct3D.VertexFormats.Normal + Direct3D.VertexFormats.Texture1, MyDevice) ’创建物体

MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘输入顶点坐标数据

MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘输入索引数据

MyPlane.SetAttributeTable(AttrTable) ‘输入顶点分组属性表

End Sub

Public Sub Render() ‘调用它画图

Dim vlook As New Vector3(1, 0, 0)

Dim vPos As New Vector3(0,0,0)

Dim vUp As New Vector3(0, 0, 1)

MatView = Matrix.LookAtLH(vPos, vlook, vUp) ‘计算摄像机位置矩阵

Device.SetTransform(Direct3D.TransformType.View, MatView) ‘设置当前摄像机位置矩阵为MatView。

Dim fAspect As Single = Me.Width / Me.Height ’窗口长宽比

matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘计算透视矩阵MatProj。

MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘设置当前透视矩阵为MatProj。

MyDevice.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0F, 0) ’先刷蓝屏

MyDevice.BeginScene() ‘开始画

MatWorld = Matrix.Identity ’物体位于原点,不旋转

Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’设置物体位置

Me.Mesh.DrawSubset(0) ‘画物体

MyDevice.EndScene() ’结束

MyDevice.Present() ‘显示在屏幕上

End Sub

Public Sub DeleteDeviceObjects() ’结束程序时放掉资源

MyPlane.Dispose()

MyDevice.Dispose()

End Sub

#End Region

Private Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

DeleteDeviceObjects()

Windows.Forms.Cursor.Show()

End Sub

Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

InitDeviceObjects()

RestoreDeviceObjects()

Windows.Forms.Cursor.Hide()

Render()

End Sub

End Class

诚心求助朋友教我用VB绘画 三维立体图形

vb里绘制线框的立体图形很简单,用到投影算法即可。

所谓投影算法就是把三维空间里的xyz映射成xy的一种方法,网上查一下“投影算法”关键字就能找到公式。

比如场景里有八个点,它们都各自有xyz坐标,在投影成xy以后,再按照一定顺序用Line连接线即可。再结合上Sin和Cos还能让图形旋转。但一般来说我们习惯的三维图像还涉及光、颜色、纹理填充,这就比较麻烦了。还得有消隐算法……

总之如果打算自己弄得化很复杂,想提高运算效率建议学习一下 DirectX SDK,有VB版的。

3D投影2D计算公式是这样的

P( f ):(x, y, z)==( f*x / z + XOrigin, f*y / z + YOrigin )

其中f是“焦点距离”,它表示从观察者到屏幕的距离,一般在80到200之间。XOrigin和YOrigin是屏幕中心的坐标。

再给你些对与3D旋转和缩放的矩阵,矩阵转化成公式即可。

二维坐标系公式。

二维笛卡儿坐标系的平移等式。

t( tx, ty ): ( x, y ) == ( x + tx, y + ty )

二维笛卡儿坐标系的缩放等式。

s( k ): ( x, y ) == ( kx, ky )

旋转等式:

r( q ): ( x, y ) == ( x cos(q) - y sin(q), x sin(q) + y cos(q) )

三维坐标系公式。

平移公式:

t( tx, ty, tz ): ( x, y, z ) == ( x + tx, y + ty, z + tz )

平移(tx, ty, tz)的矩阵

| 1 0 0 0 |

| 0 1 0 0 |

| 0 0 1 0 |

| tx ty tz 1 |

缩放公式:

s( k ): ( x, y, z ) == ( kx, ky, kz )

缩放(sx, sy, sz)的矩阵

| sx 0 0 0 |

| 0 sy 0 0 |

| 0 0 sz 0 |

| 0 0 0 1 |

旋转公式(围绕Z轴):

r( q ): ( x, y, z ) == ( x cos(q) - y sin(q), x sin(q) + y cos(q), z )

绕X轴旋转角q的矩阵

| 1 0 0 0 |

| 0 cos(q) sin(q) 0 |

| 0 -sin(q) cos(q) 0 |

| 0 0 0 1 |

绕Y轴旋转角q的矩阵:

| cos(q) 0 -sin(q) 0 |

| 0 1 0 0 |

| sin(q) 0 cos(q) 0 |

| 0 0 0 1 |

绕Z轴旋转角q的矩阵:

| cos(q) sin(q) 0 0 |

|-sin(q) cos(q) 0 0 |

| 0 0 1 0 |

| 0 0 0 1 |

怎么利用VB.NET实现三维绘图

数学上不是有斜二测画法,算好坐标即可画出

或者用AnyCAD的.Net图形控件

也可以调用matlab 实现

vb.net 画布最大能有多大

板芯一般设置960到980,画布一般是设为1900,最大的设置取决于用来编写代码的软件界面。


当前题目:vb.net三维画布 vb绘制三维图
当前链接:http://myzitong.com/article/dosdgog.html