这样的速度测试结果是不是很离谱？

llsheng_73

有人在百度知道上问怎么改图层颜色，他说用几十个(command"layer""c"色"层""")运行很慢
于是无聊进行了一下测试，感觉结果比较离谱，下边用了三种方法，一种是他的方法，我称为经典command语句(因为书上都这么教的这里鄙视一下写书的，总是教最不好用的)
第二种把command分开在循环内外，暂时称为优化command语句吧(很多时候都会这么做，显然已经跳出教材的圈子)
第三种当然是都知道的速度最快的entmod(这个速度最快但写起来它的组码比较烦)
虽然测试前对三种方法用时差异有个大概估计，但没想到的是结果让人很吃惊

1. (setq t1(getvar'date));;方法一，经典command语句
   
2. (repeat 5000
   
3.   (command"layer""C"1 "0" ""))
   
4. (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")
   
5. (setq t1(getvar'date));;方法二，优化command语句
   
6. (command"layer")
   
7. (repeat 5000
   
8.   (command"C"1 "0"))
   
9. (command"")
   
10. (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")
    
11. (setq b nil)
    
12. (repeat 5000
    
13.   (setq b(cons(list"0" 1)b)a 0))
    
14. (setq t1(getvar'date));;方法三，entmod
    
15. (foreach x b
    
16. (entmod(setq a(entget(TBLOBJNAME"layer"(car x)))a(subst(cons 62(last x))(assoc 62 a)a)))
    
17. )
    
18. (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")
    

(setq t1(getvar'date));;方法一，经典command语句<br /> (repeat 5000<br />   (command"layer""C"1 "0" ""))<br /> (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")<br /> (setq t1(getvar'date));;方法二，优化command语句<br /> (command"layer")<br /> (repeat 5000<br />   (command"C"1 "0"))<br /> (command"")<br /> (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")<br /> (setq b nil)<br /> (repeat 5000<br />   (setq b(cons(list"0" 1)b)a 0))<br /> (setq t1(getvar'date));;方法三，entmod<br /> (foreach x b<br /> (entmod(setq a(entget(TBLOBJNAME"layer"(car x)))a(subst(cons 62(last x))(assoc 62 a)a)))<br /> )<br /> (strcat"用时"(rtos(setq t1(-(getvar'date)t1)t1(* 86400.0 (- t1 (fix t1)))))"秒")<br />

下边是结果:
2.4568e+006
nil
"用时73.7510秒"
2.4568e+006
nil
nil
nil
"用时41.3760秒"
nil
0
2.4568e+006
((-1 . <图元名: 7ef7cc78>) (0 . "LAYER") (330 . <图元名: 7ef7cc10>) (5 . "F") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 0) (62 . 1) (6 . "CONTINUOUS") (290 . 1) (370 . -3) (390 . <图元名: 7ef7e480>))
"用时1.2690秒"
你对上边这三个红色的数字作何感想呢？

lsjj

連測結果如下,真的很離譜

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.529秒"
"用時0.374秒"
"用時0.265秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.545秒"
"用時0.359秒"
"用時0.265秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.545秒"
"用時0.359秒"
"用時0.265秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.544秒"
"用時0.374秒"
"用時0.281秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.545秒"
"用時0.359秒"
"用時0.265秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時1.545秒"
"用時0.374秒"
"用時0.312秒"

指令:
指令: (LOAD "C:/Users/T420/Desktop/test.lsp")
"用時2.074秒"
"用時0.422秒"
"用時0.327秒"

ZZXXQQ

再设(setvar "CMDECHO" 0)后试一下。
"用时15.8750秒"
"用时2.6880秒"；关CMDECHO
"用时7.2970秒"
"用时0.9840秒"；关CMDECHO
"用时0.4060秒"

q3_2006

ZZXXQQ 发表于 2014-5-24 08:09
再设(setvar "CMDECHO" 0)后试一下。
"用时15.8750秒"
"用时2.6880秒"；关CMDECHO

(setvar "CMDECHO" 0)这个对速度影响大...很有体会....command .....跟猫老师学的变形....速度差距3位数以上...

Gu_xl

学习都总是从command开始，直观容易！用command就不要考虑效率问题！要考虑效率问题，则尽量不要使用command,这是Lisp编程的一个基本原则！

xyp1964

方法三应该把建表过程放到计时器内，否则有失公平……

yx5277

用时3.922秒
用时1.391秒
用时0.5秒

加了一句(setvar "CMDECHO" 0)后：
用时3.891秒
用时1.375秒
用时0.5秒

变化不大啊