用autolisp对CAD二次开发，怎样生成随机数，急求！
1个回答
展开全部
;取得随机数值
(defun lsp201510261 ( / n3 n4)
(setq n3 (rtos (rem (getvar "Date") 1) 2 16))
(setq n3 (substr n3 18 1) n3 (atoi n3))
(setq n4 (rem (getvar "CPUTICKS") 10))
(fix (rem (+ n3 n4) 10))
)
原理：提取时间，然后提取CPU频率，两个数值相加除以10，取整数。
追问
Autolisp没有内置随机数产生函数吗？
追答
根据网上搜索的结果，没有的。
一般情况下，提取时间是一个办法，但是电脑运行速度快的情况下，可能会生成连续一样的数值。
CPU频率速度快的话，得到的频率也可能会得到连续一样的数值。
两个数值相加的话，得到随机数值相同概率低一些。
已赞过
已踩过<
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
