验证LISP与.NET的运算速度比较

QiaoCheng

为了验证LISP与.NET的运算速度比较
以删除重复点为例，点数据量9840 个(同样算法的基础上)
结果如下:

c#的处理速度如下:采集点集耗时...耗时: 0.48秒
查找X值相近的点...耗时: 2.64秒
查找Y值相近的点...耗时: 0.14秒

LISP的处理速度如下:
采集点集耗时...耗时:    0.188秒
查找X值相近的点...耗时: 3.031秒
查找Y值相近的点...耗时: 0.328秒

C#的代码:

2. 
   
3. #region RRPT-删除整个图形中XY平面投影的重合点（XY值相近的点）
   
4. 
   
5. [CommandMethod("RRPT")]
   
6. public void m_RemoveRepeatPoints()
   
7. {
   
8.     m_ed.WriteMessage("\n功能：删除本图中重合的点(XY值相近的点)!");
   
9.     double dJD = 0.001;
   
10.     PromptDoubleOptions pdo = new PromptDoubleOptions("\n近似精度");
    
11.     pdo.AllowNegative = false;
    
12.     pdo.AllowNone = true;
    
13.     pdo.AllowZero = true;
    
14.     pdo.DefaultValue = dJD;
    
15.     PromptDoubleResult pdr = m_ed.GetDouble(pdo);
    
16.     if (pdr.Status != PromptStatus.OK)
    
17.     {
    
18.         return;
    
19.     }
    
20.     dJD = pdr.Value;
    
21.     PromptSelectionResult m_Psr = m_ed.SelectAll(new SelectionFilter(new TypedValue[] { new TypedValue(0, "POINT") }));
    
22.     int nNumPts = m_Psr.Value.GetObjectIds().Length;
    
23.     m_ed.WriteMessage("\n共找到【{0}】个点!\n", nNumPts);
    
24.     m_ed.WriteMessage("\n正在准备点集...");
    
25.     mFun.m_TimeStart(); //开始记录时间
    
26.     List<RRPTStruct> Pts = new List<RRPTStruct>();
    
27.     RRPTStruct rs = new RRPTStruct();
    
28.     foreach (ObjectId id in m_Psr.Value.GetObjectIds())
    
29.     {
    
30.         rs.pt = ((DBPoint)mFun.m_OpenEntity(id)).Position;
    
31.         rs.id = id;
    
32.         Pts.Add(rs);
    
33.     }
    
34.     m_ed.WriteMessage("耗时：{0}秒", mFun.m_TimeEnd().ToString("0.00"));
    
35.     m_ed.WriteMessage("\n查找X值相近的点...");
    
36.     var rp = from rps in Pts orderby rps.pt.X select rps;//点集排序（按X从小到大）
    
37.     Pts = rp.ToList<RRPTStruct>();
    
38.     Utils.SetApplicationStatusBarProgressMeter("正在查找X值相近的点...", 0, nNumPts - 1);
    
39.     mFun.m_TimeStart();
    
40.     RRPTStruct rs1 = new RRPTStruct();
    
41.     rs = Pts[0];
    
42.     int n = 0;
    
43.     List<RRPTStruct> PtsX = new List<RRPTStruct>();
    
44.     for (int i = 1; i < nNumPts; i++)
    
45.     {
    
46.         rs1 = Pts[i];
    
47.         if (Math.Abs(rs.pt.X - rs1.pt.X) <= dJD)
    
48.         {
    
49.             if (!PtsX.Contains(rs))
    
50.             {
    
51.                 PtsX.Add(rs);
    
52.             }
    
53.             PtsX.Add(rs1);
    
54.             n++;
    
55.         }
    
56.         else
    
57.         {
    
58.             rs = rs1;
    
59.         }
    
60.         Utils.SetApplicationStatusBarProgressMeter(i);
    
61.     }
    
62.     Utils.RestoreApplicationStatusBar();
    
63.     m_ed.WriteMessage("耗时：{0}秒,共有【{1}】个X值相近的点", mFun.m_TimeEnd().ToString("0.00"), n + 1);
    
64.     m_ed.WriteMessage("\n查找Y值相近的点...");
    
65.     rp = from rps in PtsX orderby rps.pt.Y select rps;//点集排序（按Y从小到大）
    
66.     PtsX = rp.ToList<RRPTStruct>();
    
67.     if (PtsX.Count > 2)
    
68.     {
    
69.         Utils.SetApplicationStatusBarProgressMeter("正在查找Y值相近的点...", 0, nNumPts - 1);
    
70.         mFun.m_TimeStart();
    
71.         rs = PtsX[0];
    
72.         n = 0;
    
73.         for (int i = 1; i < PtsX.Count; i++)
    
74.         {
    
75.             rs1 = PtsX[i];[/i]
    
76.             if (Math.Abs(rs.pt.Y - rs1.pt.Y) <= dJD)
    
77.             {
    
78.                 mDraw.m_EraseEntity(rs1.id);
    
79.                 n++;
    
80.             }
    
81.             else
    
82.             {
    
83.                 rs = rs1;
    
84.             }
    
85.             Utils.SetApplicationStatusBarProgressMeter(i);
    
86.         }
    
87.     }
    
88.     Utils.RestoreApplicationStatusBar();
    
89.     m_ed.WriteMessage("耗时：{0}秒,共有【{1}】个Y值相近的点\n已删除【{2}】个重合点", mFun.m_TimeEnd().ToString("0.00"), n, n);
    
90. }
    
91. private struct RRPTStruct
    
92. {
    
93.     public Point3d pt;
    
94.     public ObjectId id;
    
95. }
    
96. #endregion
    

<br /> #region RRPT-删除整个图形中XY平面投影的重合点（XY值相近的点）<br /> <br /> [CommandMethod("RRPT")]<br /> public void m_RemoveRepeatPoints()<br /> {<br />     m_ed.WriteMessage("\n功能：删除本图中重合的点(XY值相近的点)!");<br />     double dJD = 0.001;<br />     PromptDoubleOptions pdo = new PromptDoubleOptions("\n近似精度");<br />     pdo.AllowNegative = false;<br />     pdo.AllowNone = true;<br />     pdo.AllowZero = true;<br />     pdo.DefaultValue = dJD;<br />     PromptDoubleResult pdr = m_ed.GetDouble(pdo);<br />     if (pdr.Status != PromptStatus.OK)<br />     {<br />         return;<br />     }<br />     dJD = pdr.Value;<br />     PromptSelectionResult m_Psr = m_ed.SelectAll(new SelectionFilter(new TypedValue[] { new TypedValue(0, "POINT") }));<br />     int nNumPts = m_Psr.Value.GetObjectIds().Length;<br />     m_ed.WriteMessage("\n共找到【{0}】个点!\n", nNumPts);<br />     m_ed.WriteMessage("\n正在准备点集...");<br />     mFun.m_TimeStart(); //开始记录时间<br />     List<RRPTStruct> Pts = new List<RRPTStruct>();<br />     RRPTStruct rs = new RRPTStruct();<br />     foreach (ObjectId id in m_Psr.Value.GetObjectIds())<br />     {<br />         rs.pt = ((DBPoint)mFun.m_OpenEntity(id)).Position;<br />         rs.id = id;<br />         Pts.Add(rs);<br />     }<br />     m_ed.WriteMessage("耗时：{0}秒", mFun.m_TimeEnd().ToString("0.00"));<br />     m_ed.WriteMessage("\n查找X值相近的点...");<br />     var rp = from rps in Pts orderby rps.pt.X select rps;//点集排序（按X从小到大）<br />     Pts = rp.ToList<RRPTStruct>();<br />     Utils.SetApplicationStatusBarProgressMeter("正在查找X值相近的点...", 0, nNumPts - 1);<br />     mFun.m_TimeStart();<br />     RRPTStruct rs1 = new RRPTStruct();<br />     rs = Pts[0];<br />     int n = 0;<br />     List<RRPTStruct> PtsX = new List<RRPTStruct>();<br />     for (int i = 1; i < nNumPts; i++)<br />     {<br />         rs1 = Pts[i];<br />         if (Math.Abs(rs.pt.X - rs1.pt.X) <= dJD)<br />         {<br />             if (!PtsX.Contains(rs))<br />             {<br />                 PtsX.Add(rs);<br />             }<br />             PtsX.Add(rs1);<br />             n++;<br />         }<br />         else<br />         {<br />             rs = rs1;<br />         }<br />         Utils.SetApplicationStatusBarProgressMeter(i);<br />     }<br />     Utils.RestoreApplicationStatusBar();<br />     m_ed.WriteMessage("耗时：{0}秒,共有【{1}】个X值相近的点", mFun.m_TimeEnd().ToString("0.00"), n + 1);<br />     m_ed.WriteMessage("\n查找Y值相近的点...");<br />     rp = from rps in PtsX orderby rps.pt.Y select rps;//点集排序（按Y从小到大）<br />     PtsX = rp.ToList<RRPTStruct>();<br />     if (PtsX.Count > 2)<br />     {<br />         Utils.SetApplicationStatusBarProgressMeter("正在查找Y值相近的点...", 0, nNumPts - 1);<br />         mFun.m_TimeStart();<br />         rs = PtsX[0];<br />         n = 0;<br />         for (int i = 1; i < PtsX.Count; i++)<br />         {<br />             rs1 = PtsX[i];[/i]<br />             if (Math.Abs(rs.pt.Y - rs1.pt.Y) <= dJD)<br />             {<br />                 mDraw.m_EraseEntity(rs1.id);<br />                 n++;<br />             }<br />             else<br />             {<br />                 rs = rs1;<br />             }<br />             Utils.SetApplicationStatusBarProgressMeter(i);<br />         }<br />     }<br />     Utils.RestoreApplicationStatusBar();<br />     m_ed.WriteMessage("耗时：{0}秒,共有【{1}】个Y值相近的点\n已删除【{2}】个重合点", mFun.m_TimeEnd().ToString("0.00"), n, n);<br /> }<br /> private struct RRPTStruct<br /> {<br />     public Point3d pt;<br />     public ObjectId id;<br /> }<br /> #endregion<br />

LISP的代码:
[pcode=lisp,true]
(defun c:cc ( / a b e e1 e2 elst i L lst mod nmax num ptx ptxy ss strmsg t0 t1 t2 x1 x2)
  (vl-load-com)
  (setq mod (getvar "modemacro"))
  (if (setq ss (ssget "X" '((0 . "POINT"))))
    (progn
      ;开始记录时间
      (setq t0 (car (_VL-TIMES)))
      (vla-startundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
      (setq L  (sslength ss)
            i    0
      )
      (repeat L
        (setq e    (ssname ss i)
              elst (entget e)
              PtXY (cdr (assoc 10 elst))
              lst  (cons (list e PtXY) lst)
        )
        (setq i (1+ i))
      )
      ;结束记录时间
      (princ (strcat "\n采集点集耗时" (rtos (* 0.001 (- (car (_VL-TIMES)) t0)) 2 4) "秒"))
      (princ)
      ;点集排序(按X从小到大)
      (setq lst (vl-sort lst (function (lambda (e1 e2) (< (car (cadr e1)) (car (cadr e2)))))))
      (setq i 0 num 0 L (length lst) nMax L)
      (setq strMsg "◎查找X值相近的点,请稍等...")
      (ayProcess1 nMax 0 strMsg) ;初始化状态栏
      ;开始记录时间
      (setq t1 (car (_VL-TIMES)))
      (repeat L
        (setq a (nth i lst))
        (setq x1 (car (cadr a)))
        (setq b (nth (1+ i) lst))
        (setq x2 (car (cadr b)))
        (if (and x2 (equal x1 x2 0.001))
          (progn
            (setq num (1+ num))
            (entdel (car a))
            (setq ptX (cons b ptX))
          )
        )
        (setq i (1+ i))
        (ayProcess1 nMax i strMsg)
      )
      ;结束记录时间
      (princ (strcat "\n查找X值相近的点耗时" (rtos (* 0.001 (- (car (_VL-TIMES)) t1)) 2 4) "秒"))
      ;点集排序(按Y从小到大)
      (setq ptX (vl-sort ptX (function (lambda (e1 e2) (< (cadr (cadr e1)) (cadr (cadr e2)))))))
      (setq i 0  L (length ptX) nMax L)
      (setq strMsg "◎查找Y值相近的点,请稍等...")
      (ayProcess1 nMax 0 strMsg) ;初始化状态栏
      ;开始记录时间
      (setq t2 (car (_VL-TIMES)))
      (repeat L
        (setq a (nth i ptX))
        (setq x1 (cadr (cadr a)))
        (setq b (nth (1+ i) ptX))
        (setq x2 (cadr (cadr b)))
        (if (and x2 (equal x1 x2 0.001))
          (progn
            (setq num (1+ num))
            (entdel (car a))
          )
        )
        (setq i (1+ i))
        (ayProcess1 nMax i strMsg)
      )
      ;结束记录时间
      (princ (strcat "\n查找Y值相近的点耗时" (rtos (* 0.001 (- (car (_VL-TIMES)) t2)) 2 4) "秒"))
      (princ (strcat "\n共删除" (itoa num) "个重复实体"))
      (vla-endundomark (vla-get-ActiveDocument (vlax-get-acad-object)))
    )
    (alert "图面上无高程点!")
  )
  (setvar "modemacro" mod)
  (princ)
)
(defun ayProcess1 (MaxValue Value xMessage / xMax xVal xMsg i)
  (vl-load-com)
  (setq xMax (fix (abs MaxValue)))
  (setq xVal (fix Value))
  (setq xMsg xMessage)
  (if (<= xMax 0) (setq xMax 100))
  (if (> xVal xMax) (setq xVal xMax))
  (if (= xMsg nil) (setq xMsg "进度信息"))
  ;;;捕捉由于ACET-UI_PROGRESS引起的错误而不至于终止程序的运行.
  (vl-catch-all-apply
    '(lambda (iMax iVal iMsg / xtmp)
       (progn
         (if (= iMsg nil) (setq iMsg "进度信息"))
         (cond
           ((= iVal 0) (acet-ui-progress iMsg iMax))
           ((and (> iVal 0) (<= iMax)) (acet-ui-progress -1))
           ((or (< iVal 0) (> iVal iMax)) (acet-ui-progress))
         );end_cond
         (setq xtmp "GOOD")
      );end_progn
    );end_defun Lambda function.
    (list xMax xVal xMsg)
  );end_vl-catch-all-apply
  (setq xxx "A.Yunger Studio Welcome to you have tea together for happy time!")
);end_defun

[/pcode]

总结：程序的算法相当的重要!!!不对之处请指导

Free-Lancer

你把进度条去掉试试来自: Android客户端

QiaoCheng

Free-Lancer 发表于 2013-6-21 10:55
你把进度条去掉试试

但是C#也有进度条啊

Free-Lancer

应该是完成同样的功能比较时间，lisp用lisp最佳方法，c#用c#方法，在lisp方法中应该一次排到位，不是先 x 再 y来自: Android客户端

gufengyin

Lisp用进度条会慢好多好多好多的

yangist

骨灰级了  研究这个~~~~~~~~~~~~~~~~~~~

pengfei2010

这个是有多高深啊.net  单纯从函数运行速度，不考虑算法，应该比lisp快

守仁格竹GM

很给力!经验

st788796

10W line ，Entmake 和 XDAPI 中的 xdrx_line1 比，Entmake 3.x s ，xdrx_line1 6.7s
可能时间都浪费在通讯上了

zhang8755

请把 (setq b (nth (1+ i) ptX)) 换成  (setq b (car ptX)) (setq ptx (cdr ptx)) 试试！

zhang8755

请把 (setq b (nth (1+ i) ptX)) 换成  (setq b (car ptX)) (setq ptx (cdr ptx)) 试试！

zhang8755

请把 (setq b (nth (1+ i) ptX)) 换成  (setq b (car ptX)) (setq ptx (cdr ptx)) 试试！

ww822

楼主把电脑升级试试:lol