练习 Lisp定义 GetSamplepts

csharp

[ 本帖最后由 csharp 于 2014-5-15 11:44 编辑 ]\n\n发帖纪念下，学习 Net 正好一个月时间了

1.         [LispFunction("getsamplepts")]
   
2.         public static ResultBuffer  CurveInters(ResultBuffer rb)
   
3.         {
   
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
   
5.             Transaction transaction = doc.TransactionManager.StartTransaction();
   
6.             using (transaction)
   
7.             {
   
8.                 try
   
9.                 {
   
10.                     TypedValue[] values = rb.AsArray();
    
11.                     ObjectId id = (ObjectId)values[0].Value;
    
12.                     Double d3 = (Double)values[1].Value;
    
13.                     Curve cv = (Curve)id.GetObject(OpenMode.ForRead);
    
14.                     Double endPam = cv.EndParam;
    
15. 
    
16.                     Curve3d ccv1 = cv.GetGeCurve();
    
17. 
    
18. 
    
19.                     var pts = ccv1.GetSamplePoints(0, endPam, d3);
    
20.                     TypedValue[] ret = new TypedValue[pts.Count() + 2];
    
21.                     ret[0] = new TypedValue((int)LispDataType.ListBegin);
    
22.                     int j = 0;
    
23.                     for (int i = 1; i < pts.Count() + 1; i++)
    
24.                     {
    
25.                         Point3d pt = pts[j].Point;
    
26.                         ret[i] = new TypedValue((int)LispDataType.Point3d, pt );
    
27.                         j++;
    
28.                     }
    
29.                     ret[pts.Count() + 1] = new TypedValue((int)LispDataType.ListEnd);
    
30.                     ResultBuffer result = new ResultBuffer(ret);
    
31.                     transaction.Commit();
    
32.                     return result;
    
33.                 }
    
34.                 catch (Exception)
    
35.                 {
    
36.                     
    
37.                     throw;
    
38.                 }
    
39.             }
    
40. 
    
41.         }
    

        [LispFunction("getsamplepts")]<br />         public static ResultBuffer  CurveInters(ResultBuffer rb)<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Transaction transaction = doc.TransactionManager.StartTransaction();<br />             using (transaction)<br />             {<br />                 try<br />                 {<br />                     TypedValue[] values = rb.AsArray();<br />                     ObjectId id = (ObjectId)values[0].Value;<br />                     Double d3 = (Double)values[1].Value;<br />                     Curve cv = (Curve)id.GetObject(OpenMode.ForRead);<br />                     Double endPam = cv.EndParam;<br /> <br />                     Curve3d ccv1 = cv.GetGeCurve();<br /> <br /> <br />                     var pts = ccv1.GetSamplePoints(0, endPam, d3);<br />                     TypedValue[] ret = new TypedValue[pts.Count() + 2];<br />                     ret[0] = new TypedValue((int)LispDataType.ListBegin);<br />                     int j = 0;<br />                     for (int i = 1; i < pts.Count() + 1; i++)<br />                     {<br />                         Point3d pt = pts[j].Point;<br />                         ret[i] = new TypedValue((int)LispDataType.Point3d, pt );<br />                         j++;<br />                     }<br />                     ret[pts.Count() + 1] = new TypedValue((int)LispDataType.ListEnd);<br />                     ResultBuffer result = new ResultBuffer(ret);<br />                     transaction.Commit();<br />                     return result;<br />                 }<br />                 catch (Exception)<br />                 {<br />                     <br />                     throw;<br />                 }<br />             }<br /> <br />         }<br />

获取 AcGeCurve 不用在一个个去构造了，Curve.GetGeCurve 就Ok

令: NETLOAD
命令: (getsamplepts (entlast) 2.)
((2791.46 1188.82 0.0) (2783.71 1267.71 0.0) (2760.76 1343.59 0.0) (2723.48 1413.55 0.0) (2673.29 1474.92 0.0) (2612.13 1525.36 0.0) (2542.32 1562.92 0.0) (2466.53 1586.19 0.0) (2387.67 1594.26 0.0) (2308.74 1586.83 0.0) (2232.77 1564.19 0.0) (2162.66 1527.19 0.0) (2101.08 1477.26 0.0) (2050.4 1416.3 0.0) (2012.55 1346.65 0.0) (1988.98 1270.96 0.0))

csharp

实体有IntersectWith ，Curve也可以有AcGeCurve，但IntersectCurve仅在Arc3d等，AcGeCurve竟然没有这个方法！

PLgis

请问：
Curve cv = cvs[i] as Curve;
Curve3d ccv = cv.GetGeCurve();
这里的GetGeCurve()从何而来？

csharp

PLgis 发表于 2014-6-9 19:22
请问：
Curve cv = cvs as Curve;
Curve3d ccv = cv.GetGeCurve();

AutoDESK 提供的Curve Class Method，不过在 2014 2015 上有，2010 还没有，中间版本不知道了


.Net 有ARX当然也有 getAcGeCurve

PLgis

哦，看来是我用的版本太低，谢谢。

csharp

PLgis 发表于 2014-6-10 06:26
哦，看来是我用的版本太低，谢谢。

用低版本免不了要多付出些体力活{:soso_e100:}