Returns a SegmentCollection containing each Segment components on this facet.
set oRoot = ActiveProject.ActiveScene.Root set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" ) set oGeometry = oCube.ActivePrimitive.Geometry set oFacets = oGeometry.Facets LogMessage typename(oFacets) for each oFacet in oFacets for each oSegment in oFacet.Segments LogMessage "Facet.Segment.Index " & oSegment.Index next next |