请教各位，AutoLisp中获得随机数的是什么函数？[求助]

yulb · 发表于 2002-5-13 21:42:00

陈伯雄 · 发表于 2002-5-13 21:44:00

yulb · 发表于 2002-5-13 21:51:00

本帖最后由作者于 2002-5-13 21:51:54 编辑

谢谢，想用它生成注册码！

mccad · 发表于 2002-5-13 22:03:00

花锦绣 · 发表于 2003-12-25 17:43:00

;产生0～10之间的随机数
;我是照抄照搬的，具体我也不明白，套用就可以了
(defun rn()
(if(not sd)(setq sd(getvar "DATE")))
(setq md 65536 mx 25173 nc 13849 sd (rem (+ (* mx sd) nc) md))
(setq nx(/ sd md))
)

BDYCAD · 发表于 2003-12-26 08:28:00

我前些時間也給別人寫了個. 思路是提取時間的方式來生成的.

;生成隨機數字程序

rogram make by ＢＤＹＣＡＤ
;Date : 2003-07-21
(DEFUN C:J()
  (SETQ A (RTOS (GETVAR "CDATE") 2 8))
  (SETQ A1 (substr A 16 2))
  (alert (strcat "簡SIR請試一試看看，這程序如何﹖"
   "\n"
   "\n                         "a1))
  (princ))

账号		自动登录	找回密码
密码			注册

请教各位，AutoLisp中获得随机数的是什么函数？[求助]

好像没有。要它做什么用？

谢谢，想用它生成注册码！

自已写一个吧，用当前时间再进行一些计算就可以充数