怎么产生随机数

tcsl9621

用DOSLIB好了。不然用VB编个产生随机数的函数放到DLL文件中。用LISP调用。用时间不是个好方法。

无痕

2. ;xdcad上 aeo写的程序:
3. (defun rnd(rMin rMax)
4.     (vla-eval (vlax-get-acad-object)
5.                "ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))"
6.     )
7.     (+ rMin(* (getvar "userr5")(- rMax rMin)))
8. )

;xdcad上 aeo写的程序: (defun rnd(rMin rMax)     (vla-eval (vlax-get-acad-object)                "ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))"     )     (+ rMin(* (getvar "userr5")(- rMax rMin))) )

oyxx1023

命令: (rnd 1 0)
0.294452

命令: (rnd 1 0)
0.294452

命令: (rnd 1 0)
0.294452

这个家伙只会产生相同的。那还叫随机吗。

piao1887

tcsl9621发表于2007-1-3 22:35:00用DOSLIB好了。不然用VB编个产生随机数的函数放到DLL文件中。用LISP调用。用时间不是个好方法。

问一下 用LISP如何调用DLL文件 谢谢

tcsl9621

请看我的帖子。

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=57202

asen

(defun rnd ( )
(atoi (substr (rtos (getvar "cdate") 2 8) 16 1))
)

ahwx0814

这是用时间来计算随机数的，如果时间太短的话，随机数是一样的，你用这个代码测试就会有至少2个了

2. (defun c:test()
   
3. (repeat 100
   
4. (princ "\n")
   
5. (princ (rnd 1 10))
   
6. )
   
7. )

(defun c:test()<br /> (repeat 100<br /> (princ "\n")<br /> (princ (rnd 1 10))<br /> )<br /> )

pslstar

这行应该是 ： "ThisDrawing.setVariable \"USERR5\" ,CDbl(Rnd())"  注意 是Rnd() 而不是(Rnd) 。

xyp1964

1. (repeat 100
   
2.   (princ "\n ")
   
3.   (princ (rtos (/ (rem (getvar "CPUTICKS") 2027) 2029.0) 2 6))
   
4. )

(repeat 100<br />   (princ "\n ")<br />   (princ (rtos (/ (rem (getvar "CPUTICKS") 2027) 2029.0) 2 6))<br /> )

baitang36

xyp1964 发表于 2020-11-18 08:36

这太麻烦了，直接调用函数random&生成随机数就行了，美中不足是fas可以用，lisp不能用