随机函数

zhynt · 发表于 2011-6-8 01:20:54

;;;生成随机数
(defun rnd (no / l)
  (setq ran (rtos (getvar "cputicks") 2 0)
l  (strlen ran)
ran (substr ran (- l (- no 1)))
  )
  ran
)

命令: (rnd 3)
"320"
命令: (rnd 3)
"936"
命令: (rnd 3)
"533"
命令: (rnd 3)
"905"
命令: (rnd 3)
"564"
命令: (rnd 3)
"080"
命令: (rnd 3)
"781"
命令: (rnd 3)
"420"

if · 发表于 2011-6-8 02:31:35

1.参数NO稍大就感觉有规律，不太随机
2.NO最大值为15，大了就出错

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

[函数] 随机函数