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，大了就出错
页: [1]
查看完整版本: 随机函数