lisp里生成随机数。
 

lisp里生成随机数。
www.dimcax.com

(rem (* (getvar "cputicks") 0.1) 10)
d
(defun @rnd (rmin rmax / e) ; 产生随机数
(vla-eval (vlax-get-acad-object)
"randomize : thisdrawing.setvariable \"userr5\" ,cdbl((rnd))")
(setq e (+ rmin (* (getvar "userr5") (- rmax rmin))))
(if (= 'int (type rmin) (type rmax)) (fix e) e)
)
d