[必看]：VisualLISP和LISP谁的性能更好？

zhang8755

在AUTOCAD 2002的SAMPLE\VISUALLISP\ACTIVEX下有两个程序AL-TST.LSP,VLA-TST.LSP作为AUTOLISP和VISUALLISP的性能对比，显示VISUALLISP的优越性，我对AL-TST.LSP中的子函数aal-tst做了如下修改：

2. 
   
3.   [FONT=courier new]
   
4. (defun aal-tst (/ ent centerPoint nPoint i ind offs ss cnt lwh2 lwh pt1
   
5.                 pt2 pt3 pt4)
   
6. 
   
7. (setq offs (car (getvar "snapunit")))
   
8. 
   
9. (setq lwh2 (/ (setq lwh 5.0) 2.0))
   
10. 
    
11. (princ "Creating 2000 PolyLines.\n")
    
12.   (setq i 0)
    
13.   (while (< i 2000)
    
14.     ;; creates an LWPolyLine in model space
    
15.     (setq pt1 (list (* -1.0 lwh2) (* -1.0 lwh2)))
    
16.     (setq pt2  (list lwh2 (* -1.0 lwh2)))
    
17.     (setq pt3  (list lwh2 lwh2))
    
18.     (setq pt4  (list (* -1.0 lwh2) lwh2))
    
19.     (setq entm (entmake
    
20.                  (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "0") '(100 . "AcDbPolyline")
    
21.                        '(38 . 0.0) '(39 . 0.0) '(90 . 4) '(70 . 1)
    
22.                         (cons 10 pt1) (cons 10 pt2) (cons 10 pt3) (cons 10 pt4)
    
23.                  ))
    
24.     )
    
25.     (entupd (entlast))
    
26. ;    (command "PLINE" pt1 pt2 pt3 pt4 "C")
    
27.     (setq lwh2 (/ (setq lwh (+ lwh offs)) 2.0))
    
28. 
    
29.     (setq i (1+ i))
    
30.   )
    
31.   (REDRAW)
    
32.   (setq cnt (SSLENGTH (setq ss (ssget "_X"))))
    
33. ;; Changes the Color
    
34. 
    
35.   (princ "Changing 2000 LWPolylines to Red Color.\n")
    
36.   (command "_.change" ss "" "P" "C" "1" "")
    
37. ;;  (change-property-s ss 62 1)
    
38.   (REDRAW)
    
39. ;; Sets to Invisible  - Cannot be Done Via AutoLisp
    
40. ;;  (change-property-s ss 60 acFalse)
    
41.   (REDRAW)
    
42.   (princ "Erasing 2000 LWPolylines.\n")
    
43.   (COMMAND "ERASE" SS "")
    
44. ;  (setq i (1- (SSLENGTH ss)))
    
45. ;  (while (>= i 0)
    
46. ;    (setq ent (ssname ss i);
    
47. ;          i   (1- i)
    
48. ;    )
    
49. ;    (COMMAND "ERASE" ent "")
    
50. ;  )
    
51.   (setq ss nil)
    
52. )
    
53. 
    
54. [/FONT]
    

<br />   [FONT=courier new]<br /> (defun aal-tst (/ ent centerPoint nPoint i ind offs ss cnt lwh2 lwh pt1<br />                 pt2 pt3 pt4)<br /> <br /> (setq offs (car (getvar "snapunit")))<br /> <br /> (setq lwh2 (/ (setq lwh 5.0) 2.0))<br /> <br /> (princ "Creating 2000 PolyLines.\n")<br />   (setq i 0)<br />   (while (< i 2000)<br />     ;; creates an LWPolyLine in model space<br />     (setq pt1 (list (* -1.0 lwh2) (* -1.0 lwh2)))<br />     (setq pt2  (list lwh2 (* -1.0 lwh2)))<br />     (setq pt3  (list lwh2 lwh2))<br />     (setq pt4  (list (* -1.0 lwh2) lwh2))<br />     (setq entm (entmake<br />                  (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(8 . "0") '(100 . "AcDbPolyline")<br />                        '(38 . 0.0) '(39 . 0.0) '(90 . 4) '(70 . 1)<br />                         (cons 10 pt1) (cons 10 pt2) (cons 10 pt3) (cons 10 pt4)<br />                  ))<br />     )<br />     (entupd (entlast))<br /> ;    (command "PLINE" pt1 pt2 pt3 pt4 "C")<br />     (setq lwh2 (/ (setq lwh (+ lwh offs)) 2.0))<br /> <br />     (setq i (1+ i))<br />   )<br />   (REDRAW)<br />   (setq cnt (SSLENGTH (setq ss (ssget "_X"))))<br /> ;; Changes the Color<br /> <br />   (princ "Changing 2000 LWPolylines to Red Color.\n")<br />   (command "_.change" ss "" "P" "C" "1" "")<br /> ;;  (change-property-s ss 62 1)<br />   (REDRAW)<br /> ;; Sets to Invisible  - Cannot be Done Via AutoLisp<br /> ;;  (change-property-s ss 60 acFalse)<br />   (REDRAW)<br />   (princ "Erasing 2000 LWPolylines.\n")<br />   (COMMAND "ERASE" SS "")<br /> ;  (setq i (1- (SSLENGTH ss)))<br /> ;  (while (>= i 0)<br /> ;    (setq ent (ssname ss i);<br /> ;          i   (1- i)<br /> ;    )<br /> ;    (COMMAND "ERASE" ent "")<br /> ;  )<br />   (setq ss nil)<br /> )<br /> <br /> [/FONT]<br />

性能有了极大的提高，运行时间不到不到原来的1/10，大家对比一下带分号和不带分号的代码就知道了，不知道AUTODESK这种自欺欺人的做法是什么意思？在我看来AUTOLISP的性能要好过VISUALLISP和VBA,略差于ARX,却是最简单易用Q

eachy

http://www.xdcad.net/forum/showthread.php?threadid=100746