如何提升此程序运行的速度？

ll_j

革天明 发表于 2013-3-17 08:41
现在习惯了院长大人的高速度，还有伪源码，需要xcad.vlx支持，哈哈

其实是算法决定速度，至于用pl还是solid，对速度影响并不大。

潇湘飞雨

强大   欣赏学习了

xyp1964

革天明 发表于 2013-3-17 08:41
现在习惯了院长大人的高速度，还有伪源码，需要xcad.vlx支持，哈哈

革天明

xyp1964 发表于 2013-3-17 23:07

院长就是高啊！

lucas_3333

ll_j 发表于 2013-3-15 11:39
仅仅是根据数组画图，应该是不难的，我写了一段代码，可以看看是不是你要的。

ll_J大师， 这是固定的二维码，能不能自定义呢？用lee的函数，能完善下吗？

1. (defun int2hex ( n )
   
2.     (cond
   
3.         (   (< n 10) (chr (+ n 48)))
   
4.         (   (< n 16) (chr (+ n 55)))
   
5.         (   (strcat (int2hex (/ n 16)) (int2hex (rem n 16))))
   
6.     )
   
7. )
   
8. 
   
9. (defun str->url ( s )
   
10.     (apply 'strcat
    
11.         (mapcar
    
12.             (function
    
13.                 (lambda ( a )
    
14.                     (cond
    
15.                         (   (or (<= 65 a 90) (<= 97 a 122) (member a '(45 46 95 126))) (chr a))
    
16.                         (   (= a 32) "+")
    
17.                         (   (< a 16) (strcat "%0" (int2hex a)))
    
18.                         (   (strcat "%" (int2hex a)))
    
19.                     )
    
20.                 )
    
21.             )
    
22.             (vl-string->list s)
    
23.         )
    
24.     )
    
25. )

(defun int2hex ( n )<br />     (cond<br />         (   (< n 10) (chr (+ n 48)))<br />         (   (< n 16) (chr (+ n 55)))<br />         (   (strcat (int2hex (/ n 16)) (int2hex (rem n 16))))<br />     )<br /> )<br /> <br /> (defun str->url ( s )<br />     (apply 'strcat<br />         (mapcar<br />             (function<br />                 (lambda ( a )<br />                     (cond<br />                         (   (or (<= 65 a 90) (<= 97 a 122) (member a '(45 46 95 126))) (chr a))<br />                         (   (= a 32) "+")<br />                         (   (< a 16) (strcat "%0" (int2hex a)))<br />                         (   (strcat "%" (int2hex a)))<br />                     )<br />                 )<br />             )<br />             (vl-string->list s)<br />         )<br />     )<br /> )

lucas_3333

楼主 ，为何不给ll_J 长老 悬赏分？

革天明

lucas_3333 发表于 2015-1-26 16:53
楼主 ，为何不给ll_J 长老 悬赏分？

谢谢提醒，已选择最佳答案

新人类的旗手

学习了,谢谢分享