用法
评论
建议
取 消
确 定
(defun m:rand-by-cputicks (/ n3 n4) "以日期及CPUticks为参数生成随机数" "1~100之间的整数" (setq n3 (rtos (rem (getvar "date") 1) 2 16)) (setq n3 (substr n3 18 1) n3 (atoi n3)) (setq n4 (rem (getvar "cputicks") 100)) (fix (rem (+ n3 n4) 100)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新
冀公网安备 13050302000400号