LISP调用DLL文件生成随机数

hhc

lisp调用dll,很好

highflybir

有个问题：

希望能调用DLL，生成一个随机排列数组的函数。

例如有一个数组，元素可能有上百万个，现在要对这个数组的元素随机排列，就像洗牌那样。生成这样一个函数，最后供Vlisp调用。算法上最好能对空间和时间都有照顾！

以前曾经考虑直接用lisp，但没有成功。下面我引用一段VB代码，只不过是一个特例：

  Dim   a(3)   As   Integer  
  Private   Sub   Form_Load()  
          a(0)   =   3  
          a(1)   =   6  
          a(2)   =   8  
          a(3)   =   9  
  End   Sub  
  Private   Sub   Command1_Click()  
           
          Randomize  
           
          Dim   tmp  
          Dim   tmp_index   As   Integer  
          Dim   Lb   As   Integer,   Ub   As   Integer  
          Lb   =   LBound(a)  
          Ub   =   UBound(a)  
           
          Dim   i   As   Integer  
          For   i   =   Lb   To   Ub  
                  tmp_index   =   Int((Ub   -   Lb   +   1)   *   Rnd   +   Lb)  
                  tmp   =   a(i)  
                  a(i)   =   a(tmp_index)  
                  a(tmp_index)   =   tmp  
          Next  
          For   i   =   Lb   To   Ub  
                  Debug.Print   "a("   &   i   &   ")="   &   a(i)  
          Next  
  End   Sub

无痕

2. (defun rnd(rMin rMax / e)
3.    (vla-eval (vlax-get-acad-object) "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))" )
4.    (setq e (+ rMin (* (getvar "userr5")(- rMax rMin))) )
5.    (if (= 'INT (type rmin)(type rmax))
6.      (fix e)
7.      e
8.    )
9. )
10. (defun rndsort (lst / len a lst2)
11.   (repeat (setq len (length lst))
12.     (while (member (setq a (rnd 0 len)) lst2));;这步算法可优化
13.     (setq lst2 (cons a lst2))
14.   )
15.   (mapcar '(lambda (x) (nth x lst)) lst2)
16. )

(defun rnd(rMin rMax / e)    (vla-eval (vlax-get-acad-object) "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))" )    (setq e (+ rMin (* (getvar "userr5")(- rMax rMin))) )    (if (= 'INT (type rmin)(type rmax))      (fix e)      e    ) ) (defun rndsort (lst / len a lst2)   (repeat (setq len (length lst))     (while (member (setq a (rnd 0 len)) lst2));;这步算法可优化     (setq lst2 (cons a lst2))   )   (mapcar '(lambda (x) (nth x lst)) lst2) )

2. ;; 测试:
3. (defun c:tt (/ lst)
4.   (setq lst '(-562  969   777 -97   -389  -827  -197 -850  -265
5.        -933  942   444 354   629   -95   612 909   -852
6.        -267  868   428 127   -324  845   -834 -203  962
7.        142   561   721 305   347   314   -925 -154  -845
8.        -506  575   688 427   -545  -752  -495 121   -886
9.        -691  364   -758 193   36    324   -762 174   -64
10.        -182  868   698 483   454   -167  456 984   -628
11.        812   861   -901 707   897   -745  226 107   943
12.        -798  83   -18 -583  327   589   -703 -154  -461
13.        263   -374  449 -62   -962  -567  -764 -860  -967
14.        -139  399   -271 772   -157  573   -613 -964  827
15.        554
16.       )
17.   )
18.   (repeat 10
19.     (print (rndsort lst))
20.   )
21. )

;; 测试: (defun c:tt (/ lst)   (setq lst '(-562  969   777 -97   -389  -827  -197 -850  -265        -933  942   444 354   629   -95   612 909   -852        -267  868   428 127   -324  845   -834 -203  962        142   561   721 305   347   314   -925 -154  -845        -506  575   688 427   -545  -752  -495 121   -886        -691  364   -758 193   36    324   -762 174   -64        -182  868   698 483   454   -167  456 984   -628        812   861   -901 707   897   -745  226 107   943        -798  83   -18 -583  327   589   -703 -154  -461        263   -374  449 -62   -962  -567  -764 -860  -967        -139  399   -271 772   -157  573   -613 -964  827        554       )   )   (repeat 10     (print (rndsort lst))   ) )

无痕

2. (defun rnd(rMin rMax / e)
3.    (vla-eval (vlax-get-acad-object) "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))" )
4.    (setq e (+ rMin (* (getvar "userr5")(- rMax rMin))) )
5.    (if (= 'INT (type rmin)(type rmax))
6.      (fix e)
7.      e
8.    )
9. )
10. (defun rndsort (lst / len a lst2)
11.   (repeat (setq len (length lst))
12.     (while (and
13.        (member (setq a (rnd 0 len)) lst2);;这步算法可优化
14.        (or(= 0 a)(member (setq a (1- a)) lst2))
15.        (or(= a (1- len))(member (setq a (1+ a)) lst2))
16.     )
17.       )
18.     (setq lst2 (cons a lst2))
19.   )
20.   (mapcar '(lambda (x) (nth x lst)) lst2)
21. )

(defun rnd(rMin rMax / e)    (vla-eval (vlax-get-acad-object) "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))" )    (setq e (+ rMin (* (getvar "userr5")(- rMax rMin))) )    (if (= 'INT (type rmin)(type rmax))      (fix e)      e    ) ) (defun rndsort (lst / len a lst2)   (repeat (setq len (length lst))     (while (and        (member (setq a (rnd 0 len)) lst2);;这步算法可优化        (or(= 0 a)(member (setq a (1- a)) lst2))        (or(= a (1- len))(member (setq a (1+ a)) lst2))     )       )     (setq lst2 (cons a lst2))   )   (mapcar '(lambda (x) (nth x lst)) lst2) )

2. ;; 测试:
3. (defun c:tt (/ lst)
4.   (setq lst '(-562  969   777 -97   -389  -827  -197 -850  -265  -933  942   444 354   629   -95   612 909   -852
5.        -267  868   428 127   -324  845   -834 -203  962  142   561   721 305   347   314   -925 -154  -845
6.        -506  575   688 427   -545  -752  -495 121   -886  -691  364   -758 193   36    324   -762 174   -64
7.        -182  868   698 483   454   -167  456 984   -628  812   861   -901 707   897   -745  226 107   943
8.        -798  83   -18 -583  327   589   -703 -154  -461  263   -374  449 -62   -962  -567  -764 -860  -967
9.        -139  399   -271 772   -157  573   -613 -964  827  554))
10.   (repeat 10
11.     (print (rndsort lst))
12.   )
13. )

;; 测试: (defun c:tt (/ lst)   (setq lst '(-562  969   777 -97   -389  -827  -197 -850  -265  -933  942   444 354   629   -95   612 909   -852        -267  868   428 127   -324  845   -834 -203  962  142   561   721 305   347   314   -925 -154  -845        -506  575   688 427   -545  -752  -495 121   -886  -691  364   -758 193   36    324   -762 174   -64        -182  868   698 483   454   -167  456 984   -628  812   861   -901 707   897   -745  226 107   943        -798  83   -18 -583  327   589   -703 -154  -461  263   -374  449 -62   -962  -567  -764 -860  -967        -139  399   -271 772   -157  573   -613 -964  827  554))   (repeat 10     (print (rndsort lst))   ) )

无痕

这个快一点

2. (defun rndsort3 (lst / A b I LEN LEN2 LST2 LST3)
3.   ;;构造0~(表长-1)整数序列.
4.   (setq len (length lst))
5.   (repeat (setq b len)
6.     (setq lst2 (cons (setq b (1- b)) lst2))
7.   )
8.   (repeat len
9.     (setq i    (rnd 0 (length lst2))
10.    a    (nth i lst2)
11.           lst3 (cons a lst3)
12.    lst2 (vl-remove a lst2))
13.   )
14.   (mapcar '(lambda (x) (nth x lst)) lst3)
15. )

(defun rndsort3 (lst / A b I LEN LEN2 LST2 LST3)   ;;构造0~(表长-1)整数序列.   (setq len (length lst))   (repeat (setq b len)     (setq lst2 (cons (setq b (1- b)) lst2))   )   (repeat len     (setq i    (rnd 0 (length lst2))    a    (nth i lst2)           lst3 (cons a lst3)    lst2 (vl-remove a lst2))   )   (mapcar '(lambda (x) (nth x lst)) lst3) )

tcsl9621

这个帖子抛了块砖，没想到引来了一堆玉。真是不错。这个帖子就是给大家介绍LISP调用DLL文件。这只是个简单引用。但可以编些其他VB函数来供LISP调用。

飞诗(fsxm)

试试我这个:

3. (defun rndsortlst (lst / rndlst)
4.   (repeat (length lst)
5.     (setq rndlst (cons (rnd) rndlst))
6.   )
7.   (setq rndlst (vl-sort-i rndlst '>))
8.   (mapcar '(lambda (a) (nth a lst)) rndlst)
9. )

(defun rndsortlst (lst / rndlst)   (repeat (length lst)     (setq rndlst (cons (rnd) rndlst))   )   (setq rndlst (vl-sort-i rndlst '>))   (mapcar '(lambda (a) (nth a lst)) rndlst) )

快吗？

龙龙仔

16樓(rnd)???

調用dll還會快嗎?

;;BY LUCAS  (排1千個)

(defun RND_LAI (/ STR)
  (setq STR (rtos (getvar "cputicks") 2 0))
  (/ (atoi (substr STR (- (strlen STR) 3))) 10000.0)
)

;;---------------------------------------------------
(defun RNDSORT5 (LEN / A B I LST2 LST3)
  (repeat (setq B LEN)
    (setq LST2 (cons (setq B (1- B)) LST2))
  )
  (repeat LEN
    (setq I    (fix (* LEN (RND_LAI)))
   LEN  (1- LEN)
   A    (nth I LST2)
   LST3 (cons A LST3)
   LST2 (vl-remove A LST2)
    )
  )
  LST3
)

(defun C:TT (/ N LST)
  (setq N   0
   LST NIL
  )
  (repeat 1000
    (setq LST (cons (setq N (1+ N)) LST))
  )
  (setq STIME (getvar "date"))
  (setq LST (mapcar '(lambda (X) (nth X LST)) (RNDSORT5 (length LST))))
  (setq ETIME (getvar "date"))
  (prompt
    (strcat
      "\n程式共耗用時間: "
      (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))
     2
     3
      )
      "秒\n"
    )
  )
  LST
)

highflybir

to fsxm：

的确比无痕的快，谢谢fsxm!但还没明白怎么回事，不知能否把那个rnd函数的源码贴上来呢？

to 龙版主：

从你这儿又学了一招!有一个问题是，如果利用cputicks来作随机数，是不是有一定局限性，譬如受浮点影响呢？

无痕

2. (defun C:TT2 (/ ETIME LST N STIME X)
3.   (setq N   0
4. LST NIL
5.   )
6.   (repeat 10000
7.     (setq LST (cons (setq N (1+ N)) LST))
8.   )
9.   (setq STIME (getvar "date"))
10.   (setq LST (mapcar '(lambda (X) (nth X LST)) (rndsi (length lst))))
11.   (setq ETIME (getvar "date"))
12.   (prompt
13.     (strcat
14.       "\n程式共耗用時間: "
15.       (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))
16.      2
17.      3
18.       )
19.       "秒\n"
20.     )
21.   )
22.   LST
23. )

(defun C:TT2 (/ ETIME LST N STIME X)   (setq N   0 LST NIL   )   (repeat 10000     (setq LST (cons (setq N (1+ N)) LST))   )   (setq STIME (getvar "date"))   (setq LST (mapcar '(lambda (X) (nth X LST)) (rndsi (length lst))))   (setq ETIME (getvar "date"))   (prompt     (strcat       "\n程式共耗用時間: "       (rtos (* 86400.0 (- (- ETIME STIME) (fix (- ETIME STIME))))      2      3       )       "秒\n"     )   )   LST )

程式共耗用時間: 0.469秒
程序也用了cputicks
rndsi和tt2已经打包,下载解压后调入cad可直接运行tt2