练习 Lisp定义SetMark及GetSS

csharp

新建一个类用来记录 Entlast，最大记录5个 Entlast

1.     public class MySSet
   
2.     {
   
3.         private static ObjectId []  myLastEnt = new ObjectId[5];
   
4. 
   
5.         //构造函数
   
6.         public static ObjectId[] MyLastEnt(int i ,ObjectId id)
   
7.         {
   
8.             myLastEnt[i] = id;
   
9.             return myLastEnt;
   
10.         }
    
11. 
    
12.         public static void  Put(int i, ObjectId id)
    
13.         {
    
14.             myLastEnt[i] = id;
    
15.         }
    
16. 
    
17.         public static ObjectId  MyGetLastId(int i)
    
18.         {
    
19.             return myLastEnt[i];
    
20.         }
    
21.     }
    

    public class MySSet<br />     {<br />         private static ObjectId []  myLastEnt = new ObjectId[5]; <br /> <br />         //构造函数<br />         public static ObjectId[] MyLastEnt(int i ,ObjectId id)<br />         {<br />             myLastEnt[i] = id;<br />             return myLastEnt;<br />         }<br /> <br />         public static void  Put(int i, ObjectId id)<br />         {<br />             myLastEnt[i] = id;<br />         }<br /> <br />         public static ObjectId  MyGetLastId(int i)<br />         {<br />             return myLastEnt[i];<br />         }<br />     }<br />

定义一个 Lisp 函数标记 Entlast

1.         [LispFunction("SetMark")]
   
2.         public static Object  SetMark(ResultBuffer rb)
   
3.         {
   
4.             if (rb != null)
   
5.             {
   
6.                 TypedValue[] values = rb.AsArray();
   
7.                 Boolean ret = true;
   
8.                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Int16)
   
9.                 {
   
10.                     int i = Convert.ToInt16(values[0].Value);
    
11.                     if (i < 0 | i > 4)
    
12.                     {
    
13.                         i = 0;
    
14.                     }
    
15.                     ObjectId id = Utils.EntLast();
    
16.                     if (id == ObjectId.Null)
    
17.                     {
    
18.                         id =  Utils.EntFirst();
    
19.                     }
    
20.                     MySSet.Put(i, id);
    
21.                     return ret;
    
22.                 }
    
23.                 else
    
24.                 {
    
25.                     return null;
    
26.                 }
    
27.                
    
28.             }
    
29.             else
    
30.             {
    
31.                 int i = 0;
    
32.                 Boolean ret = true;
    
33.                 MySSet.Put(i, Utils.EntLast());
    
34.                 return ret;
    
35.             }
    
36.         }
    

        [LispFunction("SetMark")]<br />         public static Object  SetMark(ResultBuffer rb)<br />         {<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 Boolean ret = true;<br />                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Int16)<br />                 {<br />                     int i = Convert.ToInt16(values[0].Value);<br />                     if (i < 0 | i > 4)<br />                     {<br />                         i = 0;<br />                     }<br />                     ObjectId id = Utils.EntLast();<br />                     if (id == ObjectId.Null)<br />                     {<br />                         id =  Utils.EntFirst();<br />                     }<br />                     MySSet.Put(i, id);<br />                     return ret;<br />                 }<br />                 else<br />                 {<br />                     return null;<br />                 }<br />                 <br />             }<br />             else<br />             {<br />                 int i = 0;<br />                 Boolean ret = true;<br />                 MySSet.Put(i, Utils.EntLast());<br />                 return ret;<br />             }<br />         }<br />

再定义一个获取对应选择集的函数

1.         [LispFunction("getss")]
   
2.         public static Object MyGetSS(ResultBuffer rb)
   
3.         {
   
4.             int j;
   
5.             if (rb == null)
   
6.             {
   
7.                 j = 0;
   
8.             }
   
9.             else
   
10.             {
    
11.                 TypedValue[] values = rb.AsArray();
    
12.                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Int16)
    
13.                 {
    
14.                     int i = Convert.ToInt16(values[0].Value);
    
15.                     if (i < 0 | i > 4)
    
16.                     {
    
17.                         j = 0;
    
18.                     }
    
19.                     else
    
20.                     {
    
21.                         j = i;
    
22.                     }
    
23.                 }
    
24.                 else
    
25.                 {
    
26.                     return null;
    
27.                 }
    
28.             }
    
29.             ObjectId lastEnt = MySSet.MyGetLastId(j);
    
30.             ObjectId[] ids = GetNextentIds(lastEnt);
    
31.             if (ids.Count() > 0)
    
32.             {
    
33.                 SelectionSet ss = SelectionSet.FromObjectIds(ids);
    
34.                 return ss;
    
35.             }
    
36.             else
    
37.             {
    
38.                 return null;
    
39.             }
    
40.         }
    

        [LispFunction("getss")]<br />         public static Object MyGetSS(ResultBuffer rb)<br />         {<br />             int j;<br />             if (rb == null)<br />             {<br />                 j = 0;<br />             }<br />             else<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.Int16)<br />                 {<br />                     int i = Convert.ToInt16(values[0].Value);<br />                     if (i < 0 | i > 4)<br />                     {<br />                         j = 0;<br />                     }<br />                     else<br />                     {<br />                         j = i;<br />                     }<br />                 }<br />                 else<br />                 {<br />                     return null;<br />                 }<br />             }<br />             ObjectId lastEnt = MySSet.MyGetLastId(j);<br />             ObjectId[] ids = GetNextentIds(lastEnt);<br />             if (ids.Count() > 0)<br />             {<br />                 SelectionSet ss = SelectionSet.FromObjectIds(ids);<br />                 return ss;<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />

下面是一个获取函数

1.         public static ObjectId[] GetNextentIds(ObjectId id)
   
2.         {
   
3.             ObjectIdCollection idColl = new ObjectIdCollection();
   
4.             if (id != ObjectId.Null)
   
5.             {
   
6.                 ObjectId nextent = Utils.EntNext(id);
   
7.                 idColl.Add(nextent);
   
8.                 while (nextent != ObjectId.Null)
   
9.                 {
   
10.                     idColl.Add(nextent);
    
11.                     nextent = Utils.EntNext(nextent);
    
12.                 }
    
13.             }
    
14.             if (idColl.Count > 0)
    
15.             {
    
16.                 ObjectId[] ids = new ObjectId[idColl.Count];
    
17.                 for (int i = 0; i < idColl.Count; i++)
    
18.                 {
    
19.                     ids[i] = idColl[i];
    
20.                 }
    
21.                 return ids;
    
22.             }
    
23.             else
    
24.             {
    
25.                 return null;
    
26.             }
    
27.         }
    

        public static ObjectId[] GetNextentIds(ObjectId id)<br />         {<br />             ObjectIdCollection idColl = new ObjectIdCollection();<br />             if (id != ObjectId.Null)<br />             {<br />                 ObjectId nextent = Utils.EntNext(id);<br />                 idColl.Add(nextent);<br />                 while (nextent != ObjectId.Null)<br />                 {<br />                     idColl.Add(nextent);<br />                     nextent = Utils.EntNext(nextent);<br />                 }<br />             }<br />             if (idColl.Count > 0)<br />             {<br />                 ObjectId[] ids = new ObjectId[idColl.Count];<br />                 for (int i = 0; i < idColl.Count; i++)<br />                 {<br />                     ids[i] = idColl[i];<br />                 }<br />                 return ids;<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />

使用方法

(setmark) (getss) 默认保存到 0 标记

(setmark 1) (getss 1) 获取第一次标记，后面的数字最大为 4

csharp

.Net 中的Utils.Entnext 不加参数是忽略子实体（如块内）

注意 Getss 后没有释放使用的 Entlast, 而且在空图时用 SetMark 也没有处理