练习 Lisp定义向量

csharp

1.         [LispFunction("Vector_Normal")]
   
2.         public Object VectorNormal(ResultBuffer rb)
   
3.         {
   
4.             Object ret = null;
   
5.             TypedValue[] values = rb.AsArray();
   
6.             if (rb != null)
   
7.             {
   
8.                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Point3d)
   
9.                 {
   
10.                     Point3d point3D = (Point3d) values[0].Value ;
    
11.                     Vector3d vec = point3D.GetAsVector();
    
12.                     Vector3d nvec = vec.GetNormal();
    
13.                     Point3d pt = new Point3d(nvec.X, nvec.Y, nvec.Z);
    
14.                     ret = pt;
    
15.                 }
    
16.                 else
    
17.                 {
    
18.                     return null;
    
19.                 }
    
20.             }
    
21.             return ret;
    
22.         }
    
23.         [LispFunction("Vector_CrossProduct")]
    
24.         public Object VectorCrossProduct(ResultBuffer rb)
    
25.         {
    
26.             TypedValue[] values = rb.AsArray();
    
27.             Object ret = null;
    
28.             if (values.Count() == 2 && values[0].TypeCode == (int)LispDataType.Point3d &&
    
29.                 values[1].TypeCode == (int)LispDataType.Point3d)
    
30.             {
    
31.                 Point3d p1 = (Point3d)values[0].Value;
    
32.                 Point3d p2 = (Point3d)values[1].Value;
    
33.                 Vector3d v1 = p1.GetAsVector().GetNormal();
    
34.                 Vector3d v2 = p2.GetAsVector().GetNormal();
    
35.                 Vector3d v =v1.CrossProduct( v2);
    
36.                 Point3d p = new Point3d(v.X ,v.Y ,v.Z );
    
37.                 ret = p;
    
38.             }
    
39.             return ret;
    
40.         }
    

        [LispFunction("Vector_Normal")]<br />         public Object VectorNormal(ResultBuffer rb)<br />         {<br />             Object ret = null;<br />             TypedValue[] values = rb.AsArray();<br />             if (rb != null)<br />             {<br />                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Point3d)<br />                 {<br />                     Point3d point3D = (Point3d) values[0].Value ;<br />                     Vector3d vec = point3D.GetAsVector();<br />                     Vector3d nvec = vec.GetNormal();<br />                     Point3d pt = new Point3d(nvec.X, nvec.Y, nvec.Z);<br />                     ret = pt;<br />                 }<br />                 else<br />                 {<br />                     return null;<br />                 }<br />             }<br />             return ret;<br />         }<br />         [LispFunction("Vector_CrossProduct")]<br />         public Object VectorCrossProduct(ResultBuffer rb)<br />         {<br />             TypedValue[] values = rb.AsArray();<br />             Object ret = null;<br />             if (values.Count() == 2 && values[0].TypeCode == (int)LispDataType.Point3d &&<br />                 values[1].TypeCode == (int)LispDataType.Point3d)<br />             {<br />                 Point3d p1 = (Point3d)values[0].Value;<br />                 Point3d p2 = (Point3d)values[1].Value;<br />                 Vector3d v1 = p1.GetAsVector().GetNormal();<br />                 Vector3d v2 = p2.GetAsVector().GetNormal();<br />                 Vector3d v =v1.CrossProduct( v2);<br />                 Point3d p = new Point3d(v.X ,v.Y ,v.Z );<br />                 ret = p;<br />             }<br />             return ret;<br />         }<br />