vb.net開發(fā)三維 vb三維繪圖

VB.net可以開發(fā)小型3D圖形顯示軟件嗎？

可以借助DirectX來編程。免費(fèi)3D引擎可不好找，一般來說速度比不上硬件加速后的DX，尤其令人頭疼的是一般都沒有針對VB的文檔，LZ有這方面理想的話，自己寫一個吧……

成都創(chuàng)新互聯(lián)公司于2013年創(chuàng)立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站設(shè)計(jì)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元富寧做網(wǎng)站,已為上家服務(wù),為富寧各地企業(yè)和個人服務(wù),聯(lián)系電話:13518219792

我不得不承認(rèn)在VB上寫DirectX的教程相當(dāng)難找！如果LZ想深入研究三維圖形問題，C++一定要學(xué)，就算不能用C++編程，起碼要能把C++程序翻譯成VB程序。

我自己學(xué)會DX編程花了兩三個月（很淺）。編這樣一個程序難度是有點(diǎn)大的。

工具：DirectX9和其針對VB的庫(項(xiàng)目-添加引用。.NET庫里DX庫一般都有)，VB不知道現(xiàn)在支不支持DX10以上的版本，不過9絕對夠用了。

思路：一切3D圖形都是由三角形拼成的。矩形挖掉一個圓孔可不是一個方便畫的圖形，我估計(jì)至少得有24個三角形。你需要記錄這些點(diǎn)的坐標(biāo)，或者干脆把它們寫在文件里，到時讀出來。

這是我的一個老DX程序的不完全的代碼(顯示一個黑乎乎的平面)，不一定能編譯，可以參考一下。

Imports Microsoft.DirectX '一定要~

Public Class FormMain

'Direct3D Startup

Dim d3dpp As New Direct3D.PresentParameters 'DX基本參數(shù)，例如全屏還是窗口等

Public MyDevice As Direct3D.Device ‘DX基本設(shè)備，畫圖就靠它。

'Matrices

Dim matWorld, matView, matProj As Matrix '世界位置矩陣，攝像機(jī)位置矩陣和透視矩陣，數(shù)學(xué)要學(xué)好啊。

'mesh

Public MyPlane as Direct3D.Mesh ’我們的物體

Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放頂點(diǎn)位置的數(shù)組

#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) '創(chuàng)建DX設(shè)備啦！以下兩句請照抄。

MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z緩沖

MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法線歸一化，請看相關(guān)數(shù)學(xué)書籍。

End Sub

Public Sub RestoreDeviceObjects()

Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’頂點(diǎn)索引信息。

Dim AttrTable(1) As Direct3D.AttributeRange ‘頂點(diǎn)分組屬性表

AttrTable(0).AttributeId = 0

AttrTable(0).FaceStart = 0

AttrTable(0).FaceCount = 2 ’有兩個三角形

AttrTable(0).VertexStart = 0

AttrTable(0).VertexCount = 4 ‘四個點(diǎn)

‘頂點(diǎn)坐標(biāo)信息。

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) ’創(chuàng)建物體

MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘輸入頂點(diǎn)坐標(biāo)數(shù)據(jù)

MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘輸入索引數(shù)據(jù)

MyPlane.SetAttributeTable(AttrTable) ‘輸入頂點(diǎn)分組屬性表

End Sub

Public Sub Render() ‘調(diào)用它畫圖

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) ‘計(jì)算攝像機(jī)位置矩陣

Device.SetTransform(Direct3D.TransformType.View, MatView) ‘設(shè)置當(dāng)前攝像機(jī)位置矩陣為MatView。

Dim fAspect As Single = Me.Width / Me.Height ’窗口長寬比

matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘計(jì)算透視矩陣MatProj。

MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘設(shè)置當(dāng)前透視矩陣為MatProj。

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

MyDevice.BeginScene() ‘開始畫

MatWorld = Matrix.Identity ’物體位于原點(diǎn)，不旋轉(zhuǎn)

Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’設(shè)置物體位置

Me.Mesh.DrawSubset(0) ‘畫物體

MyDevice.EndScene() ’結(jié)束

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

End Sub

Public Sub DeleteDeviceObjects() ’結(jié)束程序時放掉資源

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.net環(huán)境下圖像處理，用什么建立3D

首先，還是談?wù)剤D像像素時數(shù)據(jù)獲取方面吧，.net中的圖像相關(guān)類基本上都是基于GDI+的，因此，圖像數(shù)據(jù)的獲取其實(shí)也是調(diào)用GDI+的一些函數(shù)。這個函數(shù)就是LockBits，在vb.net中彩色圖像數(shù)據(jù)的快速獲取 一文中，我們是調(diào)用了Marshal.Copy把LockBits鎖定的內(nèi)存數(shù)據(jù)拷貝到數(shù)據(jù)中，然后對數(shù)組中的值進(jìn)行處理。這樣做主要的原因是VB.NET不好直接訪問內(nèi)存（Marshal.ReadByte之類的函數(shù)不適合用于大型的循環(huán)中)。那么，這就造成了2個不好的事情，第一：在同一時間需要2倍于圖像數(shù)據(jù)量的內(nèi)存，第二：內(nèi)存數(shù)據(jù)拷貝到數(shù)據(jù)，以及處理后再把數(shù)組的數(shù)據(jù)拷貝會內(nèi)存中都是會減低速度的。作為一種改進(jìn)，我們應(yīng)該充分利用LockBits的功能。LockBits中的LockMode中有一種模式為ImageLockMode.UserInputBuffer，該模式下需要用戶先申請內(nèi)存，然后在把圖像數(shù)據(jù)按照相關(guān)格式填充如這個內(nèi)存中。這樣，就可以先定義個數(shù)組，然后把圖像數(shù)據(jù)填充到這個數(shù)組中，就避免了來回拷貝的耗時了，簡單示例代碼如下：

Dim BmpData As New BitmapData

Stride = ((Bmp.Width * 3 + 3) And HFFFFFFFC)

Dim PixleValue(Stride * Bmp.Height) As Byte

Dim Hanlde As GCHandle = GCHandle.Alloc(PixleValue, GCHandleType.Pinned)

BmpData.Scan0 = Hanlde.AddrOfPinnedObject()

怎么利用VB.NET實(shí)現(xiàn)三維繪圖

數(shù)學(xué)上不是有斜二測畫法，算好坐標(biāo)即可畫出

或者用AnyCAD的.Net圖形控件

也可以調(diào)用matlab 實(shí)現(xiàn)

三維二次開發(fā)那種語言最快

SOLIDWORKS二次開發(fā)介紹

一、 SOLIDWORKS的二次開發(fā)是建立在軟件提供的API函數(shù)的基礎(chǔ)上的，SOLIDWORKS的API對象結(jié)構(gòu)是一個自上而下的多層樹型網(wǎng)絡(luò)結(jié)構(gòu)，在二次開發(fā)過程中，COM編程允許SOLIDWORKS將實(shí)際的對象函數(shù)功能與外部世界聯(lián)系，提供給設(shè)計(jì)人員開發(fā)使用，而VB.Net程序語言將COM編程的復(fù)雜性降低，使得設(shè)計(jì)人員在編譯時，既可以在上層對象中尋找函數(shù)和方法，也可以面向子類對象調(diào)用其函數(shù)完成設(shè)計(jì)。

二、 SOLIDWORKS二次開發(fā)其實(shí)就是使用API函數(shù)來替代SOLIDWORKS設(shè)計(jì)中一些重復(fù)繁瑣的工作，起到輔助設(shè)計(jì)的作用。

三、 SOLIDWORKS二次開發(fā)多使用VBA、VB.NET、C#.NET、C++等語言，每種語言都有自己的優(yōu)勢所在，這里僅做一個簡單的介紹。

1、C#.NET：C#和VB.NET優(yōu)勢幾乎差不多，但是C#和SOLIDWORKS自帶宏程序語言與VBA有些不同，不適合前期入門的人員選擇。

2、C++:C++語言有些難度，不是太適合常規(guī)的SOLIDWORKS二次開發(fā)編寫，不建議使用。

3、VBA：VBA語言是SOLIDWORKS軟件自帶的一種宏語言，可以通過SOLIDWORKS自帶宏功能打開，方便快捷。但是VBA語言不適合系統(tǒng)軟件的開發(fā)，且在編程時沒有錯誤提示。

4、VB.NET： VB.NET語言，許多語言和VBA相似，宏錄制后方便編程人員的修改應(yīng)用且可以作為系統(tǒng)軟件開發(fā)語言，以Visual Studio作為開發(fā)平臺。

當(dāng)前標(biāo)題：vb.net開發(fā)三維 vb三維繪圖
網(wǎng)址分享：http://muchs.cn/article48/ddcejhp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)、全網(wǎng)營銷推廣、網(wǎng)站導(dǎo)航、手機(jī)網(wǎng)站建設(shè)、搜索引擎優(yōu)化、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)