练习 Lisp定义GetSplitCurves

csharp

1.         [LispFunction("GetSplitCurves")]
   
2.         public static ResultBuffer  GetSplitCurves(ResultBuffer rb)
   
3.         {
   
4.             ResultBuffer ret = new ResultBuffer();
   
5.             Document document = Application.DocumentManager.MdiActiveDocument;
   
6.             Editor editor= document.Editor;
   
7.             Transaction transaction = document.TransactionManager.StartTransaction();
   
8.             Database db = document.Database;
   
9.             using (transaction )
   
10.             
    
11.                 try
    
12.                 {
    
13.                     if (rb != null)
    
14.                     {
    
15.                         TypedValue[] rbArr = rb.AsArray();
    
16.                         DoubleCollection doubleCollection = new DoubleCollection( );
    
17.                         TypedValue entId = rbArr[0];
    
18.                         ObjectId id = (ObjectId)entId.Value;
    
19.                         Curve curve = (Curve )transaction.GetObject(id, OpenMode.ForWrite);
    
20.                         if (curve.Closed ) doubleCollection.Add(curve.StartParam);
    
21.                         foreach (TypedValue  arg in rbArr)
    
22.                         {
    
23.                             switch (arg.TypeCode)
    
24.                             {
    
25.                                 case 5001:
    
26.                                     double n = Convert.ToDouble(arg.Value);
    
27.                                     doubleCollection.Add(n);
    
28.                                     break;
    
29.                                 case 5003:
    
30.                                     //short ii = (short) arg.Value;
    
31.                                     double nn = Convert.ToDouble(arg.Value);
    
32.                                     doubleCollection.Add(nn);
    
33.                                     break;
    
34.                                 case 5004:
    
35.                                     int iii = (int) arg.Value;
    
36.                                     double nnn = iii;
    
37.                                     doubleCollection.Add(nnn);
    
38.                                     break;
    
39.                                 default :
    
40.                                     break;
    
41.                             }
    
42.                         }
    
43.                         foreach (double i in doubleCollection)
    
44.                         {
    
45.                             editor.WriteMessage(i.ToString());
    
46.                         }
    
47.                         DBObjectCollection dbObjectCollection = curve.GetSplitCurves(doubleCollection  );
    
48.                         BlockTableRecord Spase = (BlockTableRecord)transaction.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
    
49.                         foreach (DBObject cDbObject in dbObjectCollection )
    
50.                         {
    
51.                             Spase.AppendEntity((Entity)cDbObject);
    
52.                             transaction .AddNewlyCreatedDBObject(cDbObject, true);
    
53.                         }
    
54.                         curve.Erase();
    
55.                         // */
    
56.                     }
    
57.                     transaction.Commit();
    
58.                     return null;
    
59.                 }
    
60.                 catch (Exception)
    
61.                 {
    
62.                     throw;
    
63.                 }
    
64.         }
    

        [LispFunction("GetSplitCurves")]<br />         public static ResultBuffer  GetSplitCurves(ResultBuffer rb)<br />         {<br />             ResultBuffer ret = new ResultBuffer();<br />             Document document = Application.DocumentManager.MdiActiveDocument;<br />             Editor editor= document.Editor;<br />             Transaction transaction = document.TransactionManager.StartTransaction();<br />             Database db = document.Database;<br />             using (transaction )<br />             <br />                 try<br />                 {<br />                     if (rb != null)<br />                     {<br />                         TypedValue[] rbArr = rb.AsArray();<br />                         DoubleCollection doubleCollection = new DoubleCollection( );<br />                         TypedValue entId = rbArr[0];<br />                         ObjectId id = (ObjectId)entId.Value;<br />                         Curve curve = (Curve )transaction.GetObject(id, OpenMode.ForWrite);<br />                         if (curve.Closed ) doubleCollection.Add(curve.StartParam);<br />                         foreach (TypedValue  arg in rbArr)<br />                         {<br />                             switch (arg.TypeCode) <br />                             {<br />                                 case 5001:<br />                                     double n = Convert.ToDouble(arg.Value);<br />                                     doubleCollection.Add(n);<br />                                     break;<br />                                 case 5003:<br />                                     //short ii = (short) arg.Value;<br />                                     double nn = Convert.ToDouble(arg.Value);<br />                                     doubleCollection.Add(nn);<br />                                     break;<br />                                 case 5004:<br />                                     int iii = (int) arg.Value;<br />                                     double nnn = iii;<br />                                     doubleCollection.Add(nnn);<br />                                     break;<br />                                 default :<br />                                     break;<br />                             }<br />                         }<br />                         foreach (double i in doubleCollection)<br />                         {<br />                             editor.WriteMessage(i.ToString());<br />                         }<br />                         DBObjectCollection dbObjectCollection = curve.GetSplitCurves(doubleCollection  );<br />                         BlockTableRecord Spase = (BlockTableRecord)transaction.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);<br />                         foreach (DBObject cDbObject in dbObjectCollection )<br />                         {<br />                             Spase.AppendEntity((Entity)cDbObject);<br />                             transaction .AddNewlyCreatedDBObject(cDbObject, true);<br />                         }<br />                         curve.Erase();<br />                         // */<br />                     }<br />                     transaction.Commit();<br />                     return null;<br />                 }<br />                 catch (Exception)<br />                 {<br />                     throw;<br />                 } <br />         }<br />

在Lisp下断开曲线很麻烦，XdRxAPI 中有个 xdrx_curve_getsplitcurves ，模仿在写了一个，因为初学 C# ，很不完善，只能用 Pamram 而且要自己先行由小到大排好序，另外对封闭曲线处理的不好，在起始点处会多断开一段
使用方法
(getsplitcurves curve pam1 pam2 pam3 ...)