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

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

yulb · 发表于 2002-5-13 21:51: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中获得随机数的是什么函数？[求助]

发表回复

精选推荐