set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Arc","NurbsCurve")
set oNurbsCurveList = oObject.ActivePrimitive.Geometry
set oNurbsCurve = oNurbsCurveList.Curves(0)
logmessage oNurbsCurve.Length