利用GUID做种子，生成随机数

Lisphk

1. (defun GUID (/ tl g)
   
2.   (if (setq tl (vlax-get-or-create-object "Scriptlet.TypeLib"))
   
3.     (progn (setq g (vlax-get tl 'Guid))
   
4.            (vlax-release-object tl)
   
5.            (substr g 2 36)
   
6.     )
   
7.   )
   
8. )
   
9. 
   
10. ;;; ---------------------------------------------------------------------------------------
    
11. ;;; Convert a base into an integer
    
12. ;;; ---------------------------------------------------------------------------------------
    
13. (defun Base->Int (s b / i m ex)
    
14.   (or *digits*
    
15.       (setq
    
16.         *digits* (vl-string->list "0123456789ABCDEFGHIJKLMNOPQSTUVWXYZ")
    
17.       )
    
18.   )
    
19.   (setq        m  (wcmatch s "-*")
    
20.         s  (vl-string->list (vl-string-left-trim "-+" s))
    
21.         i  0.0
    
22.         ex 0
    
23.   )
    
24.   (while s
    
25.     (setq i (+ (* i b) (vl-position (car s) *digits*))
    
26.           s (cdr s)
    
27.     )
    
28.   )
    
29.   (fix (if m
    
30.          (- i)
    
31.          i
    
32.        )
    
33.   )
    
34. )
    
35. 
    
36. (defun RandomFromGUID (/ G a b)
    
37.   (setq        G (vl-string-translate "-" "3" (GUID))
    
38.         a (float (Base->Int (substr G 1 18) 16))
    
39.         b (float (Base->Int (substr G 19) 16))
    
40.         G (/ a b)
    
41.   )
    
42.   (rem (/ G (expt 10. (fix (/ G 10)))) 1.)
    
43. )
    

(defun GUID (/ tl g)<br />   (if (setq tl (vlax-get-or-create-object "Scriptlet.TypeLib"))<br />     (progn (setq g (vlax-get tl 'Guid))<br />            (vlax-release-object tl)<br />            (substr g 2 36)<br />     )<br />   )<br /> )<br /> <br /> ;;; ---------------------------------------------------------------------------------------<br /> ;;; Convert a base into an integer<br /> ;;; ---------------------------------------------------------------------------------------<br /> (defun Base->Int (s b / i m ex)<br />   (or *digits*<br />       (setq<br />         *digits* (vl-string->list "0123456789ABCDEFGHIJKLMNOPQSTUVWXYZ")<br />       )<br />   )<br />   (setq        m  (wcmatch s "-*")<br />         s  (vl-string->list (vl-string-left-trim "-+" s))<br />         i  0.0<br />         ex 0<br />   )<br />   (while s<br />     (setq i (+ (* i b) (vl-position (car s) *digits*))<br />           s (cdr s)<br />     )<br />   )<br />   (fix (if m<br />          (- i)<br />          i<br />        )<br />   )<br /> )<br /> <br /> (defun RandomFromGUID (/ G a b)<br />   (setq        G (vl-string-translate "-" "3" (GUID))<br />         a (float (Base->Int (substr G 1 18) 16))<br />         b (float (Base->Int (substr G 19) 16))<br />         G (/ a b)<br />   )<br />   (rem (/ G (expt 10. (fix (/ G 10)))) 1.)<br /> )<br />

_$ (RANDOMFROMGUID)
0.770795
_$ (repeat 10 (princ "\n")(princ (RANDOMFROMGUID)))(princ)

0.789914
0.00697833
0.0190617
0.469959
0.836066
0.0928757
0.0569814
0.0795628
0.759452
0.6551120.655112
_$

既然青春留不住

楼主辛苦啦！~~~~~~