练习 Lisp定义点表面积

csharp

1.         [LispFunction("Points_Area")]
   
2.         public Object PointsArea(ResultBuffer rb)
   
3.         {
   
4.             Object ret = null;
   
5.             if (rb != null)
   
6.             {
   
7.                 Point3dCollection ptsCollection = new Point3dCollection();
   
8.                 TypedValue[] values = rb.AsArray();
   
9.                 int count = values.Count();
   
10.                 if (count < 3)return 0;
    
11.                 for (int i = 0; i < count ; i++)
    
12.                 {
    
13.                     ptsCollection.Add((Point3d) values[i].Value);
    
14.                 }
    
15.                 double area;
    
16.                 area = ptsCollection[0][1]*(ptsCollection[count - 1][0] - ptsCollection[1][0]);
    
17.                 for (int i = 1; i < count; i++)
    
18.                 {
    
19.                     area += ptsCollection[i][1]*(ptsCollection[i - 1][0] - ptsCollection[(i + 1)%count][0]);
    
20.                 }
    
21.                 ret = area / 2;
    
22.             }
    
23.             return ret;
    
24.         }
    

        [LispFunction("Points_Area")]<br />         public Object PointsArea(ResultBuffer rb)<br />         {<br />             Object ret = null;<br />             if (rb != null)<br />             {<br />                 Point3dCollection ptsCollection = new Point3dCollection();<br />                 TypedValue[] values = rb.AsArray();<br />                 int count = values.Count();<br />                 if (count < 3)return 0;<br />                 for (int i = 0; i < count ; i++)<br />                 {<br />                     ptsCollection.Add((Point3d) values[i].Value);<br />                 }<br />                 double area;<br />                 area = ptsCollection[0][1]*(ptsCollection[count - 1][0] - ptsCollection[1][0]);<br />                 for (int i = 1; i < count; i++)<br />                 {<br />                     area += ptsCollection[i][1]*(ptsCollection[i - 1][0] - ptsCollection[(i + 1)%count][0]);<br />                 }<br />                 ret = area / 2;<br />             }<br />             return ret;<br />         }<br />

csharp

(points_area p1 p1 … pn)