用autolisp对CAD二次开发，怎样生成随机数，急求！

2026年09月26日 06:18

有1个网友回答

网友（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，取整数。