指定されたポイントの位置のコピーをSIVector3として戻します。
注：ジオメトリの座標を実際に変更する場合は、PointCollection.PositionArrayを使用します。
set oRoot = application.activeproject.activescene.root
set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.activeprimitive.geometry
' print the position of each point
for each oPoint in oGeometry.Points
logmessage oPoint.Position.x & _
", " & oPoint.Position.y & _
", " & oPoint.Position.z
next
|