CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]

CAD tip # 1366:

Question CAD
% platform category

How to generate a random number using AutoLISP?

Use the following function for a LISP generator of pseudo-random numbers:

(defun rnd (/ modulus multiplier increment random)
  (if (not seed)
    (setq seed (getvar "DATE"))
  )
  (setq modulus    65536
        multiplier 25173
        increment  13849
        seed  (rem (+ (* multiplier seed) increment) modulus)
        random     (/ seed modulus)
  )
)

Each call of the function (rnd) then returns a pseudo-random number in the range (0,1). E.g. to get random integers from 0 to 20, use (fix(* 20 (rnd))).

ACAD

* CAD

1.6.2001 14712×

Comments Tell a friend

Prices - CAD eShop:

AutoCAD

applies to: AutoCAD ·

See also:
Tip 12368:	Gaps - how to find loose ends on lines in a DWG?
Tip 12310:	How to check if a dimension is associative or not? (LISP)
Tip 12306:	How to check if a specific application or process is running?
Tip 12287:	AutoCAD hatch flood-fill does not honor all boundaries.
Tip 12279:	PropByLayer - an inverse function to SetByLayer.

Selected tip: MDT can not find Excel 2000 Deutsch (German)version.

Back All CAD Tips

How to make a PDF file from your drawing? « | » Where to find a library of traffic signs for AutoCAD?

Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link:

CAD: OS: Categ:
Text:	FAQ glossary

Featuring:
DwgTextTranslator translates a series of drawings from one language to another using MS Access.
Download a fully functional trial version.

Please use these tips at your own risk.
CAD Studio is not responsible for possible problems that may occur as a result of using any of these tips.


Login/Register:
Visitors: 2547