C#与VBA的速度比较

ahlzl

用这两种开发方法，画100000个圆，看看要多少时间。使用环境：AutoCAD 2007
VBA 代码：

2. Sub Test()
3.     Dim s As Double
4.     s = ThisDrawing.GetVariable("date")
5.     s = (s - Fix(s)) * 86400#
6.    
7.     Dim cenPt(2) As Double
8.     For i = 0 To 99999
9.         ThisDrawing.ModelSpace.AddCircle cenPt, 100#
10.     Next
11.    
12.     Dim e As Double
13.     e = ThisDrawing.GetVariable("date")
14.     e = (e - Fix(e)) * 86400#
15.    
16.     MsgBox ("VBA画100000个圆所用时间：" & e - s & "秒")
17. End Sub

Sub Test()     Dim s As Double     s = ThisDrawing.GetVariable("date")     s = (s - Fix(s)) * 86400#         Dim cenPt(2) As Double     For i = 0 To 99999         ThisDrawing.ModelSpace.AddCircle cenPt, 100#     Next         Dim e As Double     e = ThisDrawing.GetVariable("date")     e = (e - Fix(e)) * 86400#         MsgBox ("VBA画100000个圆所用时间：" & e - s & "秒") End Sub

C# 代码：

2. // using System.Diagnostics;
3. using Autodesk.AutoCAD.ApplicationServices;
4. using Autodesk.AutoCAD.DatabaseServices;
5. using Autodesk.AutoCAD.EditorInput;
6. using Autodesk.AutoCAD.Geometry;
7. using Autodesk.AutoCAD.Runtime;
8. namespace Test
9. {
10.     public class Class1
11.     {
12.         [CommandMethod("Test")]
13.         public void MyTest()
14.         {
15.             double s = (double)Application.GetSystemVariable("date");
16.             s = (s - System.Math.Floor(s)) * 86400.0;
17.             /*
18.             Stopwatch sw = new Stopwatch();
19.             sw.Start();
20.             */
21.             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
22.             Database db = HostApplicationServices.WorkingDatabase;
23.             Circle ent = null;
24.             using (Transaction trans = db.TransactionManager.StartTransaction())
25.             {
26.                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId,
27.                     OpenMode.ForRead);
28.                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject
29.                     (bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
30.                 for (int i = 0; i < 100000; i++)
31.                 {
32.                     ent = new Circle(Point3d.Origin, Vector3d.ZAxis, 100.0);
33.                     btr.AppendEntity(ent);
34.                     trans.AddNewlyCreatedDBObject(ent, true);
35.                 }
36.                 trans.Commit();
37.             }
38.             /*
39.             sw.Stop();
40.             ed.WriteMessage("\nC#画100000个圆所用时间: {0}分钟 {1}秒 {2}毫秒",
41.                 sw.Elapsed.Minutes, sw.Elapsed.Seconds, sw.Elapsed.Milliseconds);
42.             */
43.             double e = (double)Application.GetSystemVariable("date");
44.             e = (e - System.Math.Floor(e)) * 86400.0;
45.             Application.ShowAlertDialog("\nC#画100000个圆所用时间: " + (e - s) + "秒");
46.         }
47.     }
48. }

// using System.Diagnostics; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.Runtime; namespace Test {     public class Class1     {         [CommandMethod("Test")]         public void MyTest()         {             double s = (double)Application.GetSystemVariable("date");             s = (s - System.Math.Floor(s)) * 86400.0;             /*             Stopwatch sw = new Stopwatch();             sw.Start();             */             Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;             Database db = HostApplicationServices.WorkingDatabase;             Circle ent = null;             using (Transaction trans = db.TransactionManager.StartTransaction())             {                 BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId,                     OpenMode.ForRead);                 BlockTableRecord btr = (BlockTableRecord)trans.GetObject                     (bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);                 for (int i = 0; i < 100000; i++)                 {                     ent = new Circle(Point3d.Origin, Vector3d.ZAxis, 100.0);                     btr.AppendEntity(ent);                     trans.AddNewlyCreatedDBObject(ent, true);                 }                 trans.Commit();             }             /*             sw.Stop();             ed.WriteMessage("\nC#画100000个圆所用时间: {0}分钟 {1}秒 {2}毫秒",                 sw.Elapsed.Minutes, sw.Elapsed.Seconds, sw.Elapsed.Milliseconds);             */             double e = (double)Application.GetSystemVariable("date");             e = (e - System.Math.Floor(e)) * 86400.0;             Application.ShowAlertDialog("\nC#画100000个圆所用时间: " + (e - s) + "秒");         }     } }

AutoLisp 代码：

2. (defun c:test (/ CPT ETIME I STIME UTIME)
3.   (setq cpt   '(0.0 0.0 0.0)
4. STIME (getvar "date")
5.   )
6.   (repeat 100000
7.     (entmake (APPEND '((0 . "CIRCLE")
8.          (100 . "AcDbEntity")
9.          (100 . "AcDbCircle")
10.          (8 . "0")
11.          (62 . 1)
12.         )
13.        (LIST (CONS 10 cpt) (cons 40 100.0))
14.       )
15.     )
16.   )
17.   (setq ETIME (getvar "date")
18. UTIME (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))
19.       2
20.       8
21.        )
22.   )
23.   (princ (strcat "\n我们用LISP画100000个圆要用: " UTIME "秒"))
24. )

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

VisualLisp 代码：

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

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

为了公平起见，都用系统变量进行计时。
看完这个帖子，你是否觉得应该从VBA转到C#？

雪山飞狐_lzh

其实VBA转到NetApi的理由应该很多，：）

效率上肯定比不上

其次，VBA在Cad里调用是永远的痛，要借助lisp实现

VBA的拖动要借助ObjectArx

VBA的曲线操作要借助Vlax，而且极不稳定

VBA的Bug太多

。。。。。。

狂刀无痕

能否吧 lisp 和 arx的对比也加上？

雪山飞狐_lzh

Lisp，老卢和我都是弱项：）

无痕兄可以写个测试代码试试

Lisp就我所知：

强在命令调用，但弱点也很多

使用命令过多，程序的控制很困难

Dcl很郁闷

单文档模式

效率很低

ahlzl

修改了一下一楼的帖子。

要去监考了（高考），ARX代码，下次再加上。

注：LISP代码是BDYCAD写的。