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

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

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

陈伯雄 发表于 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

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

;生成隨機數字程序
;Program 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))
页: [1]
查看完整版本: 请教各位，AutoLisp中获得随机数的是什么函数？[求助]