NurbsCurveList内のカーブのインデックスをLongとして戻します。
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Arc","NurbsCurve")
set oNurbsCurveList = oObject.ActivePrimitive.Geometry
for each oNurbsCurve in oNurbsCurveList.Curves
logmessage oNurbsCurve.Index
next
|