NurbsCurveの各ControlPointオブジェクトを含むControlPointCollectionを戻します。
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Arc","NurbsCurve")
set oNurbsCurveList = oObject.ActivePrimitive.Geometry
set oNurbsCurve = oNurbsCurveList.Curves(0)
set oControlPoints = oNurbsCurve.ControlPoints
|