练习 Lisp定义MoveStretchPoint

csharp

1.         [LispFunction("MoveStretchpoint")]
   
2.         public static ResultBuffer moveStretchpoint(ResultBuffer rb)
   
3.         {
   
4.             ResultBuffer resultBuffer = new ResultBuffer();
   
5.             Document document = Application.DocumentManager.MdiActiveDocument;
   
6.             Editor editor = document.Editor;
   
7.             Transaction transaction = document.TransactionManager.StartTransaction();
   
8.             IntegerCollection integerCollection = new IntegerCollection(1);
   
9.             using (transaction)
   
10.                 try
    
11.                 {
    
12.                     if (rb != null )
    
13.                     {
    
14.                         TypedValue[] rbArr = rb.AsArray();
    
15.                         TypedValue entId = rbArr[0];
    
16.                         if (rbArr.Length > 2 && entId.TypeCode == (int) LispDataType.ObjectId)
    
17.                         {
    
18.                             Point3d acPt3d = new Point3d();
    
19.                             foreach (TypedValue arg in rbArr )
    
20.                             {
    
21.                                 switch (arg.TypeCode)
    
22.                                 {
    
23.                                     case 5009:
    
24.                                         acPt3d = (Point3d)arg.Value;
    
25.                                         break;
    
26.                                     case 5003:
    
27.                                         short  i =  (short)arg.Value;
    
28.                                         int n = i;
    
29.                                         integerCollection.Add(n);
    
30.                                         break;
    
31.                                     default :
    
32.                                         //editor.WriteMessage(arg.TypeCode.ToString());
    
33.                                         break;
    
34.                                         }
    
35.                             }
    
36.                             if (integerCollection.Count != 0 )
    
37.                             {
    
38.                                 ObjectId id = (ObjectId)entId.Value;
    
39.                                 Entity entity = (Entity)transaction.GetObject(id, OpenMode.ForWrite,false);
    
40.                                 Vector3d vector3D =  acPt3d.GetVectorTo(new Point3d(0, 0, 0));
    
41.                                 entity.MoveStretchPointsAt(integerCollection, vector3D);
    
42.                             }
    
43.                         }
    
44.                     }
    
45.                     transaction.Commit();
    
46.                     return null;
    
47.                 }
    
48.                 catch (Exception)
    
49.                 {
    
50.                     throw;
    
51.                 }
    
52.         }
    

        [LispFunction("MoveStretchpoint")]<br />         public static ResultBuffer moveStretchpoint(ResultBuffer rb)<br />         {<br />             ResultBuffer resultBuffer = new ResultBuffer();<br />             Document document = Application.DocumentManager.MdiActiveDocument;<br />             Editor editor = document.Editor;<br />             Transaction transaction = document.TransactionManager.StartTransaction();<br />             IntegerCollection integerCollection = new IntegerCollection(1);<br />             using (transaction)<br />                 try<br />                 {<br />                     if (rb != null )<br />                     {<br />                         TypedValue[] rbArr = rb.AsArray();<br />                         TypedValue entId = rbArr[0];<br />                         if (rbArr.Length > 2 && entId.TypeCode == (int) LispDataType.ObjectId)<br />                         {<br />                             Point3d acPt3d = new Point3d();<br />                             foreach (TypedValue arg in rbArr )<br />                             {<br />                                 switch (arg.TypeCode)<br />                                 {<br />                                     case 5009:<br />                                         acPt3d = (Point3d)arg.Value;<br />                                         break;<br />                                     case 5003:<br />                                         short  i =  (short)arg.Value;<br />                                         int n = i;<br />                                         integerCollection.Add(n);<br />                                         break;<br />                                     default :<br />                                         //editor.WriteMessage(arg.TypeCode.ToString());<br />                                         break;<br />                                         }<br />                             }<br />                             if (integerCollection.Count != 0 )<br />                             {<br />                                 ObjectId id = (ObjectId)entId.Value;<br />                                 Entity entity = (Entity)transaction.GetObject(id, OpenMode.ForWrite,false);<br />                                 Vector3d vector3D =  acPt3d.GetVectorTo(new Point3d(0, 0, 0));<br />                                 entity.MoveStretchPointsAt(integerCollection, vector3D);<br />                             }<br />                         }<br />                     }<br />                     transaction.Commit();<br />                     return null;<br />                 }<br />                 catch (Exception)<br />                 {<br />                     throw;<br />                 }<br />         }<br />

(movestretchpoint entity vec index1 index2 ...)