练习 Lisp定义选择集返回实体列表

csharp

[ 本帖最后由 csharp 于 2014-5-5 04:33 编辑 ]\n\n[ 本帖最后由 csharp 于 2014-5-4 18:47 编辑 ]\n\n

1.         [LispFunction("Pickset->ents")]
   
2.         public static ResultBuffer PicksetEnts(ResultBuffer rb)
   
3.         {
   
4.             if (rb != null)
   
5.             {
   
6.                 TypedValue[] values = rb.AsArray();
   
7.                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.SelectionSet)
   
8.                 {
   
9.                     SelectionSet ss = (SelectionSet)values[0].Value;
   
10.                     ObjectId[] ids = ss.GetObjectIds();
    
11.                     TypedValue[] resultTypedValues = new TypedValue[ids.Count()];
    
12.                     for (int i = 0; i < ss.Count; i++)
    
13.                     {
    
14.                         resultTypedValues[i] = new TypedValue((int)LispDataType.ObjectId, ids[i]);
    
15.                     }
    
16.                     ResultBuffer ret = new ResultBuffer(resultTypedValues);
    
17.                     return ret;
    
18.                 }
    
19.                 else
    
20.                 {
    
21.                     return null;
    
22.                 }
    
23.             }
    
24.             else
    
25.             {
    
26.                 return null;
    
27.             }
    
28.         }
    

        [LispFunction("Pickset->ents")]<br />         public static ResultBuffer PicksetEnts(ResultBuffer rb)<br />         {<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.SelectionSet)<br />                 {<br />                     SelectionSet ss = (SelectionSet)values[0].Value;<br />                     ObjectId[] ids = ss.GetObjectIds();<br />                     TypedValue[] resultTypedValues = new TypedValue[ids.Count()];<br />                     for (int i = 0; i < ss.Count; i++)<br />                     {<br />                         resultTypedValues[i] = new TypedValue((int)LispDataType.ObjectId, ids[i]);<br />                     }<br />                     ResultBuffer ret = new ResultBuffer(resultTypedValues);<br />                     return ret;<br />                 }<br />                 else<br />                 {<br />                     return null;<br />                 }<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />

用 TypeValue [] 建立 ResultBuffer 效率是最高的，经测试这个方法比 while + ssname 生成列表的方法速度还略快，在6W实体时约 0.17s,比 xdrx_pickset->ents 要快，其它返回值也可以用这个方法

前面几个练习返回ResultBuffer是用 new后再用Add方法，事实证明那是一个效率极低的方法

动态数组 静态数组 ArrayList List<T>
相关资料留存
[url=http://msdn.microsoft.com/zh-cn/library/wc7sh3hx]http://msdn.microsoft.com/zh-cn/library/wc7sh3hx[/url](v=vs.90).aspx[/i][/i]

ScmTools

建议LZ再写出在LISP中的使用示例

14702470

:):):):):):)

dnbcgrass

(defun c:test()
    (setq jgb (Pickset->ents (ssget)))
    (princ)
)

dnbcgrass

好像没有(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))快:lol:lol:lol