set oRoot = Application.ActiveProject.ActiveScene.Root
set oArc = oRoot.AddGeometry( "Arc", "NurbsCurve" )
aValues = oArc.ActivePrimitive.Geometry.Curves(0).EvaluatePositionFromPercentage( 70.0 )
set oPosition = aValues(0)
logmessage "The position at 70%% of the curve is x :" &  oPosition.x        & " y: " & oPosition.y & " z: " & oPosition.z
set oUTangent = aValues(1)
logmessage "The tangent in U at 70%% of the curve is x :" & oUTangent.x & " y: " & oUTangent.y & " z: " & oUTangent.z
set oNormal = aValues(2)
logmessage "The normal at 70%% of the curve is x :" & oNormal.x & " y: " & oNormal.y & " z: " & oNormal.z
set oBiNormal = aValues(3)
logmessage "The bi-normal at 70%% of the curve is x :" & oBiNormal.x & " y: " & oBiNormal.y & " z: " & oBiNormal.z

SICreateCurve("crvlist", 3, 0);
SIAddPointOnCurveAtEnd("crvlist", -3.951, 0.000, 1.651, false);
SIAddPointOnCurveAtEnd("crvlist", -3.214, 0.000, -1.884, false);
SIAddPointOnCurveAtEnd("crvlist", -0.592, 0.000, 1.146, false);
SIAddPointOnCurveAtEnd("crvlist", 1.660, 0.000, 2.856, false);
SIAddPointOnCurveAtEnd("crvlist", 3.272, 0.000, -1.224, false);
GetNurbsCurveListInfo( GetValue("crvlist") );
function GetNurbsCurveListInfo( oCurveList )
{
        var oPosition, oUTangent, oNormal, oBiNormal;
        var p = XSIMath.CreateVector3();
        oGeometry = oCurveList.ActivePrimitive.Geometry;
        // Display curve list info
        LogMessage( "    Name: " + oCurveList.Name );
        LogMessage( "FullName: " + oCurveList.FullName );
        LogMessage( "    Type: " + oCurveList.Type );
        // Display geometry info:
        LogMessage( "      Length: " + oGeometry.Length );
        LogMessage( "      Closed: " + oGeometry.Closed );
        LogMessage( "   Nb Points: " + oGeometry.Points.Count );
        LogMessage( "  Nb Control: " + oGeometry.ControlPoints.Count );
        LogMessage( "   Nb Curves: " + oGeometry.Curves.Count );
        LogMessage( "   Nb Facets: " + oGeometry.Facets.Count );
        LogMessage( " Nb Segments: " + oGeometry.Segments.Count );
        LogMessage( " Nb Clusters: " + oGeometry.Clusters.Count );
        LogMessage( "Nb Triangles: " + oGeometry.Triangles.Count ); //crashes Softimage
        // Get the lower-level stuff
        for ( i = 0; i < oGeometry.Curves.Count; i++ ) 
        {
                LogMessage( "--- Curve["+i+"] ---" );
                oCurve = oGeometry.Curves(i);
                // Find the midpont along the curve
                var aValues = new VBArray(oCurve.EvaluatePositionFromPercentage( 50.0 ));
                var oPosition = aValues.getItem(0);
                var oUTangent = aValues.getItem(1);
                var oNormal = aValues.getItem(2);
                var oBiNormal = aValues.getItem(3);
                LogMessage( " Position[x,y,z]: " + oPosition.x +","+ oPosition.y +","+ oPosition.z );
                LogMessage( "U Tangent[x,y,z]: " + oUTangent.x +","+ oUTangent.y +","+ oUTangent.z );
                LogMessage( "   Normal[x,y,z]: " + oNormal.x   +","+ oNormal.y +","+ oNormal.z   );
                LogMessage( "Bi Normal[x,y,z]: " + oBiNormal.x +","+ oBiNormal.y +","+ oBiNormal.z );
                // Display the info
                LogMessage( "   Nb Knots: " + oCurve.Knots.Count );
                LogMessage( "   Degree: "   + oCurve.Degree      );
        }
        return(0);
}