测试一下AutoLisp、VisualLisp、ObjectARX画1000个圆的速度

BDYCAD

今天和ahlzl一起学习测试一下以下程序的速度
AutoLisp 代码:

2. (defun c:test(/ CPT ETIME I STIME UTIME)
3.   (setq cpt'(0.0 0.0 0.0)i 1 STIME (getvar "date"))
4.   (repeat 1000
5.     (entmake(APPEND '((0 . "CIRCLE")(100 . "AcDbEntity")(100 . "AcDbCircle")(8 . "0")(62 . 1))
6.    (LIST(CONS 10 cpt)(cons 40 i))))
7.     (setq i (1+ i)))
8.   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))
9.   (princ(strcat"\n我们用LISP画1000个圆要用: "UTIME"秒"))
10.   )

(defun c:test(/ CPT ETIME I STIME UTIME)   (setq cpt'(0.0 0.0 0.0)i 1 STIME (getvar "date"))   (repeat 1000     (entmake(APPEND '((0 . "CIRCLE")(100 . "AcDbEntity")(100 . "AcDbCircle")(8 . "0")(62 . 1))    (LIST(CONS 10 cpt)(cons 40 i))))     (setq i (1+ i)))   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))   (princ(strcat"\n我们用LISP画1000个圆要用: "UTIME"秒"))   )

VisualLisp 代码  

2. (defun c:test(/ CPT ETIME I PACE STIME UTIME VCPT)
3.   (setq cpt'(0.0 0.0 0.0)i 1 STIME (getvar "date")
4. pace(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object)))
5. vcpt(vlax-3d-point cpt))
6.     (rtos STIME 2 2)
7.   (repeat 1000
8.     (vla-AddCircle pace vcpt i)
9.     (setq i (1+ i)))
10.   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))
11.   (princ(strcat"\n我们用VLISP画1000个圆要用: "UTIME"秒"))
12.    (princ)
13.   )

(defun c:test(/ CPT ETIME I PACE STIME UTIME VCPT)   (setq cpt'(0.0 0.0 0.0)i 1 STIME (getvar "date") pace(vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) vcpt(vlax-3d-point cpt))     (rtos STIME 2 2)   (repeat 1000     (vla-AddCircle pace vcpt i)     (setq i (1+ i)))   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))   (princ(strcat"\n我们用VLISP画1000个圆要用: "UTIME"秒"))    (princ)   )

VBA代码

2. Sub TestTime()
3.     Dim sTime As Double, eTime As Double, at As Double
4.     Dim ut As Integer
5.     sTime = ThisDrawing.GetVariable("DATE")
6.     Dim cenPt(2) As Double
7.     For i = 0 To 999
8.         ThisDrawing.ModelSpace.AddCircle cenPt, 100
9.     Next
10.     eTime = ThisDrawing.GetVariable("DATE")
11.     at = eTime - sTime
12.     ut = at
13.     at = 86400# * (at - ut)
14.     MsgBox ("VBA画1000个圆所用时间：" & at)
15. End Sub

Sub TestTime()     Dim sTime As Double, eTime As Double, at As Double     Dim ut As Integer     sTime = ThisDrawing.GetVariable("DATE")     Dim cenPt(2) As Double     For i = 0 To 999         ThisDrawing.ModelSpace.AddCircle cenPt, 100     Next     eTime = ThisDrawing.GetVariable("DATE")     at = eTime - sTime     ut = at     at = 86400# * (at - ut)     MsgBox ("VBA画1000个圆所用时间：" & at) End Sub

Object ARX 代码

1. struct resbuf StarTime,EndTime;
2.   ads_real Stime,Etime,UserTime;
3.   int i=0,ut;
4.   AcGePoint3d cen;
5.   cen.x=0.0;cen.y=0.0;cen.z=0.0;
6.   acedGetVar("date",&StarTime);
7.   Stime=StarTime.resval.rreal;
8.   do {
9.    i=i+1;
10.    AcDbCircle *nc=new AcDbCircle();
11.    nc->setCenter(cen);
12.    nc->setRadius(i);
13.    AcDbBlockTable *blocktable;
14.    acdbHostApplicationServices()->workingDatabase()->getSymbolTable(blocktable,AcDb::kForRead);
15.    AcDbBlockTableRecord *blocktablerecord;
16.    blocktable->getAt(ACDB_MODEL_SPACE,blocktablerecord,AcDb::kForWrite);
17.    AcDbObjectId cirid;
18.    blocktablerecord->appendAcDbEntity(cirid,nc);
19.    blocktable->close();
20.    blocktablerecord->close();
21.    nc->close();
22.    
23.   } while(i<=1000);
24.   acedGetVar("date",&EndTime);
25.   Etime=EndTime.resval.rreal;
26.   UserTime=Etime-Stime;
27.   ut=UserTime;
28.   UserTime=86400.0*(UserTime-ut);
29.   char ChTime[50];
30.   acdbRToS(UserTime,2,8,ChTime);
31.   acutPrintf("\n用ARX程序画1000个圆用的时间是: %s 秒",ChTime);
32.   return;

复制代码

Command: test
我们用LISP画1000个圆要用: 0.38997978秒
Command:
Command: test
我们用VLISP画1000个圆要用: 0.62498152秒
Command: test
程序运行起始时间: 2454286.417852
用ARX程序画1000个圆用的时间是: 0.01597255 秒

carrot1983

entmake居然比Active的来得快!

难以置信!.一直以为VLisp会比ALisp来得快

比command快是肯的吧!

qianglcq

<br/>我的用VLISP画1000个圆要用: 0.297001秒

oyxx1023

AL:我们用LISP画1000个圆要用: 0.17199665秒

VL:我们用VLISP画1000个圆要用: 0.1560241秒

VBA:6.3E-2(程序中没说明单位)

leslie114

用过了AL比VL快

我们用LISP画1000个圆要用: 0.15598387秒"\n我们用LISP画1000个圆要用: 0.15598387秒"

我们用VLISP画1000个圆要用: 0.37501305秒

zml84

问题在于，这速度除了说明自己的机器配制之外，还有其他的用处吗？

HuaiYu

很厉害的啊 ,很佩服的要紧!

以前好象听人说用那个 append 比 List　要慢一点，若改成list可能会提高一点速度的吧

ARX里面的 ModelSpace　被打开了　１０００遍，关闭了　１０００　遍的

yshf

(defun c:test(/ CPT ETIME I STIME UTIME)
   (setq cpt'(0.0 0.0 0.0)i 1 STIME (getvar "date"))
   (repeat 1000
     (entmake(APPEND '((0 . "CIRCLE")(100 . "AcDbEntity")(100 . "AcDbCircle")(8 . "0")(62 . 1))
    (LIST(CONS 10 cpt)(cons 40 i))))
     (setq i (1+ i)))
   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))
   (princ(strcat"\n我们用LISP画1000个圆要用: "UTIME"秒"))(princ)
   )

(defun c:test1(/ CPT ETIME I STIME UTIME)
   (setq i 1 STIME (getvar "date"))
   (repeat 1000
     (entmake(list '(0 . "CIRCLE")'(100 . "AcDbEntity")'(100 . "AcDbCircle")'(8 . "0")'(62 . 1)
                    '(10 0.0 0.0 0.0)(cons 40 i)))
     (setq i (1+ i)))
   (setq ETIME (getvar "date")UTIME(rtos(* 86400.0 (-(- ETIME STIME)(fix(- ETIME STIME))))2 8))
   (princ(strcat"\n我们用LISP画1000个圆要用: "UTIME"秒"))(princ)
   )

命令: test

我们用LISP画1000个圆要用: 0.50999522秒

命令:
命令: test1

我们用LISP画1000个圆要用: 0.31100214秒
 可以看出"append "的确比 "List"　要慢一点!

oyxx1023

其实你这个画圆的条件并不是完全相同的.

vba的代码就没有计算圆的半径.

ARX的速度快得多.画1000个圆只用了0.0几秒的时间.

用画一万个圆的数量时间值会大点.1000个太快了.一下就画完了.画一万个时ARX的速度优势就彻底体现出来 .了

gbhsu

我以前也试过好多种类的，不过没有试arx