[讨论]：关于command、entmake、vla-add速度的测试

xyp1964

画10万条短线的测试程序：

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")                        ;版本 V.20060413
   
4. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
7. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
8. ■3·在command下，输入(load"xyp_lib.vlx")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]
    
14. [url]http://free.ys168.com/?xyp1964[/url]
    
15. |;
    
16. 
    
17. (defun c:test ()
    
18.   (CMDLA0)
    
19.   (defun pt-vbd        (point)
    
20.     (setq point
    
21.            (vlax-safearray-fill
    
22.              (Vlax-make-safearray vlax-vbdouble '(0 . 2))
    
23.              point
    
24.            )
    
25.     )
    
26.     point
    
27.   )
    
28.   (vl-load-com)
    
29.   (setq        AcadObject   (vlax-get-acad-object)
    
30.         AcadDocument (vla-get-ActiveDocument Acadobject)
    
31.         mSpace             (vla-get-ModelSpace AcadDocument)
    
32.   )
    
33.   ;;command
    
34.   (setq        i   -1
    
35.         int 100000
    
36.   )
    
37.   (xyp-mklaco "test1" 1)
    
38.   (xyp-get-StartTime)
    
39. 
    
40.   (repeat int
    
41.     (setq pt (list (* 10 (setq i (1+ i))) 0))
    
42.     (command "line" pt (polar pt (* pi 0.5) 200) "")
    
43.   )
    
44.   (xyp-get-UsedTime)
    
45.   ;;entmake
    
46.   (setq i -1)
    
47.   (xyp-mklaco "test2" 2)
    
48.   (xyp-get-StartTime)
    
49.   (repeat int
    
50.     (setq pt (list (* 10 (setq i (1+ i))) 300))
    
51.     (entmake (list (cons 0 "LINE")
    
52.                    (cons 10 pt)
    
53.                    (cons 11 (polar pt (* pi 0.5) 200))
    
54.              )
    
55.     )
    
56.   )
    
57.   (xyp-get-UsedTime)
    
58.   ;;vla-addline
    
59.   (setq i -1)
    
60.   (xyp-mklaco "test3" 3)
    
61.   (xyp-get-StartTime)
    
62.   (repeat int
    
63.     (setq pt1 (list (* 10 (setq i (1+ i))) 600 0)
    
64.           pt2 (polar pt1 (* pi 0.5) 200)
    
65.     )
    
66.     (vla-addline mspace (pt-vbd pt1) (pt-vbd pt2))
    
67.   )
    
68.   (xyp-get-UsedTime)
    
69.   (CMDLA1)
    
70. )
    
71. [/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")                        ;版本 V.20060413<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (defun pt-vbd        (point)<br />     (setq point<br />            (vlax-safearray-fill<br />              (Vlax-make-safearray vlax-vbdouble '(0 . 2))<br />              point<br />            )<br />     )<br />     point<br />   )<br />   (vl-load-com)<br />   (setq        AcadObject   (vlax-get-acad-object)<br />         AcadDocument (vla-get-ActiveDocument Acadobject)<br />         mSpace             (vla-get-ModelSpace AcadDocument)<br />   )<br />   ;;command<br />   (setq        i   -1<br />         int 100000<br />   )<br />   (xyp-mklaco "test1" 1)<br />   (xyp-get-StartTime)<br /> <br />   (repeat int<br />     (setq pt (list (* 10 (setq i (1+ i))) 0))<br />     (command "line" pt (polar pt (* pi 0.5) 200) "")<br />   )<br />   (xyp-get-UsedTime)<br />   ;;entmake<br />   (setq i -1)<br />   (xyp-mklaco "test2" 2)<br />   (xyp-get-StartTime)<br />   (repeat int<br />     (setq pt (list (* 10 (setq i (1+ i))) 300))<br />     (entmake (list (cons 0 "LINE")<br />                    (cons 10 pt)<br />                    (cons 11 (polar pt (* pi 0.5) 200))<br />              )<br />     )<br />   )<br />   (xyp-get-UsedTime)<br />   ;;vla-addline<br />   (setq i -1)<br />   (xyp-mklaco "test3" 3)<br />   (xyp-get-StartTime)<br />   (repeat int<br />     (setq pt1 (list (* 10 (setq i (1+ i))) 600 0)<br />           pt2 (polar pt1 (* pi 0.5) 200)<br />     )<br />     (vla-addline mspace (pt-vbd pt1) (pt-vbd pt2))<br />   )<br />   (xyp-get-UsedTime)<br />   (CMDLA1)<br /> )<br /> [/FONT]

Command: test

用时 : 54.78秒
用时 : 5.96秒
用时 : 23.71秒

cy956

呵呵。xd这里讨论过。vl 的表现有些方面让人眼睛一亮，有的方面不敢恭维。

zhang8755

xyp版主，再来一个entmake+entdel 和entmode的比较，程序中往往构造临时实体，是用entmake+entdel 好呢，还是先用entmake生成一个，以后用entmode修改，最后再用entdel删除。
记得我的一个贴子中需要临时构造许多竖线吗？

雨箭风刀

那还用问,多一步当然慢

xyp1964

command，line之所以慢，是因为画一根线要显示一根，符合正常操作的要求。
entmake只在最后才显示，不知其是否能连续画线？
vla-addline似乎也在最后才显示。
从本质上似乎后两者不能与与command的方式相比。

wujimmy

楼主辛苦一下了 ,顺便把这两个函数也比较一下吧
entmod   vla-put*
就是用autolisp ,visuallisp修改实体,那个更快

对了,还有autolisp的数组,与vlisp的数组存取速度看看哪个更快:)))

jyzas

用entmake确实快，不过在用_u GROUP撤消命令时会取消上绘图命令，不知怎解决？？