コレクション内のPolygonFaceの x,y,z法線値を含む2DArrayを戻します。
// get accessor Object rtn = PolygonFaceCollection.NormalArray; |
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface") set oPolygonMesh = oObject.ActivePrimitive.Geometry set oPolygonFaceCollection = oPolygonMesh.Polygons aNormals = oPolygonFaceCollection.NormalArray for i = LBound(aNormals, 2) to UBound(aNormals, 2) logmessage "normal[" & i & "] =" & _ aNormals(0,i) & _ "," & aNormals(1,i) & _ "," & aNormals(2,i) next |