Geometry.Segmentsプロパティによって戻されたSegmentCollectionからインデックスのArrayを戻します。
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
|