random numbers from autolisp

[aaronic_abacus]

how do i generate random numbers from autolisp?

[Bruno.Valsecchi]

This ? is not mine (years 2000)

(defun randomize (v1 v2 / )
	(if (not v_sd)
		(setq v_sd (getvar "DATE"))
	)
	(setq v_sd (rem (+ (* 25173 v_sd) 13849) 65536))
	(+ (* (/ v_sd 65536) (- (max v1 v2) (min v1 v2))) (min v1 v2))
)

Usage exemple
(randomize (- pi) pi)
(randomize 0 100)

return alway a real, use fix if you want an interger