v3.0
NurbsCurveオブジェクトからSubComponentを作成します。
set oObject = ActiveSceneRoot.AddGeometry("Arc","NurbsCurve") set oNurbsCurveList = oObject.ActivePrimitive.Geometry set oSubComponent = oNurbsCurveList.Curves(0).SubComponent logmessage oSubComponent