|
|
本人尝试用以下语句通过改变mesh的顶点坐标来实现mesh沿Y轴的移动，但实际效果确是mesh的各个面各自移动而且不是沿着Y轴移动，我把改变顶点部分的代码贴出来，请各位高手帮忙看看问题出在哪？
pVB = mesh2.VertexBuffer
Dim pVertices() As CustomVertex.PositionOnly
Dim dwNumVertices As Integer = mesh2.NumberVertices
pVertices = CType(pVB.Lock(0, GetType(CustomVertex.PositionOnly), 0, dwNumVertices),CustomVertex.PositionOnly())
For i = 0 To dwNumVertices - 1
pVertices(i).Y = pVertices(i).Y + 0.02
Next i
pVB.Unlock() |
|
发表于 2012-3-21 19:31:00
楼主