Returns the TrianglePoint positions for this triangle collection as a 3-dimensional Array of x,y,z values for every TrianglePoint in every triangle, organized as: [x,y,z values][TrianglePoint][Triangle]
set root = Application.ActiveProject.ActiveScene.Root
set obj = root.AddGeometry( "Cube", "MeshSurface" )
a = obj.ActivePrimitive.Geometry.Triangles.positionarray
for i=LBound( a, 3 ) to UBound( a, 3 )
for j=LBound( a, 2 ) to UBound( a, 2 )
Application.LogMessage "t" & i & ".p" & j & ".position: " & a(0,j,i) & "," & a(1,j,i) & "," & a(2,j,i)
next
next
|