このファセットの各 Point コンポーネントを含む PointCollection を戻します。
// get accessor PointCollection rtn = Facet.Points; |
set oRoot = ActiveProject.ActiveScene.Root set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" ) set oGeometry = oCube.ActivePrimitive.Geometry set oFacets = oGeometry.Facets LogMessage typename(oFacets(0).Points) for each oFacet in oFacets for each oPoint in oFacet.Points LogMessage "Facet.Point : " & oPoint.Position.X & "," & oPoint.Position.y & "," & oPoint.Position.z next next |