Geometry.Segmentsプロパティによって戻されたSegmentCollection内のセグメントのインデックスを表すLongを戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
for each oSegment in oGeometry.Segments
LogMessage "Geometry.Segment[" & oSegment.Index & "].Index = " & oSegment.Index
next
|