各 Triangle の各 TrianglePoint についてR、G、B、A 値の 3D Array([r,g,b,a values][TrianglePoint][Triangle])を戻します。
// get accessor Object rtn = TriangleCollection.ColorArray; |
set root = Application.ActiveProject.ActiveScene.Root set obj = root.AddGeometry( "Cube", "MeshSurface" ) CreateVertexColorSupport ,,obj a = obj.ActivePrimitive.Geometry.Triangles.colorarray for i=LBound( a, 3 ) to UBound( a, 3 ) for j=LBound( a, 2 ) to UBound( a, 2 ) Application.LogMessage "t" & i & ".p" & j & ".color: " & _ a(0,j,i) & "," & a(1,j,i) & "," & a(2,j,i) & "," & a(3,j,i) next next |