练习 LispFunction PointsBox

csharp

2. 
   
3.         [LispFunction("Points_Box")]
   
4.         public static ResultBuffer GetPointsBox(ResultBuffer rb)
   
5.         {
   
6.             TypedValue[] values = rb.AsArray();
   
7.             Extents3d ext = new Extents3d();
   
8.             for (int i = 1; i < values.Length - 1; i++)
   
9.             {
   
10.                 ext.AddPoint((Point3d)values[i].Value);
    
11.             }
    
12.             Point3d p1 = ext.MinPoint;
    
13.             Point3d p2 = ext.MaxPoint;
    
14.             TypedValue[] val = new TypedValue[6];
    
15.             val[0] = new TypedValue((int)LispDataType.ListBegin);
    
16.             val[1] = new TypedValue((int)LispDataType.Point3d, p1);
    
17.             val[2] = new TypedValue((int)LispDataType.Point3d, new Point3d(p2.X, p1.Y, p1.Z));
    
18.             val[3] = new TypedValue((int)LispDataType.Point3d, p2);
    
19.             val[4] = new TypedValue((int)LispDataType.Point3d, new Point3d(p1.X, p2.Y, p2.Z));
    
20.             val[5] = new TypedValue((int)LispDataType.ListEnd);
    
21.             return new ResultBuffer(val);
    
22.         }
    

<br />         [LispFunction("Points_Box")]<br />         public static ResultBuffer GetPointsBox(ResultBuffer rb)<br />         {<br />             TypedValue[] values = rb.AsArray();<br />             Extents3d ext = new Extents3d();<br />             for (int i = 1; i < values.Length - 1; i++)<br />             {<br />                 ext.AddPoint((Point3d)values[i].Value);<br />             }<br />             Point3d p1 = ext.MinPoint;<br />             Point3d p2 = ext.MaxPoint;<br />             TypedValue[] val = new TypedValue[6];<br />             val[0] = new TypedValue((int)LispDataType.ListBegin);<br />             val[1] = new TypedValue((int)LispDataType.Point3d, p1);<br />             val[2] = new TypedValue((int)LispDataType.Point3d, new Point3d(p2.X, p1.Y, p1.Z));<br />             val[3] = new TypedValue((int)LispDataType.Point3d, p2);<br />             val[4] = new TypedValue((int)LispDataType.Point3d, new Point3d(p1.X, p2.Y, p2.Z));<br />             val[5] = new TypedValue((int)LispDataType.ListEnd);<br />             return new ResultBuffer(val);<br />         }<br />

和 (apply 'mapcar (cons 'min pts)) 对比

命令: TT
选择对象: 指定对角点: 找到 119700 个
选择对象:
((-41231.6 -30413.4 0.0) (77723.2 -30413.4 0.0) (77723.2 83616.3 0.0) (-41231.6 83616.3 0.0))
0.057
((-41231.6 -30413.4 0.0) (77723.2 -30413.4 0.0) (77723.2 83616.3 0.0) (-41231.6 83616.3 0.0))
0.114