Geometry.Segmentsプロパティによって戻されたSegmentCollectionからインデックスのArrayを戻します。
// get accessor Object rtn = SegmentCollection.IndexArray; |
set oRoot = Application.ActiveProject.ActiveScene.Root set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" ) set oGeometry = oObj.ActivePrimitive.Geometry ' Get array from geometry.segments aIndices = oGeometry.Segments.IndexArray for i = LBound(aIndices, 1) to UBound(aIndices, 1) set oSegment = oGeometry.Segments(aIndices(i)) ' Print oSegment.index LogMessage "segment[" & i & "].index = " &oSegment.index next |