CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]
Cesky English Deutsch
Login/Register:
 Visitors: 3496 

CAD tip CAD tip # 1366:

Question CAD 
 %  platform  category 
Q - question

How to generate a random number using AutoLISP?

A - answer 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
100% *  CAD 
1.6.2001    12815×  
Comments   Tell a friend
applies to: AutoCAD ·

See also:
Tip 11693:Adding numbers in drawing texts.
Tip 11686:Where is stored the application list loaded through the Startup Suite?
Tip 11664:Which AutoCAD commands do exist also in the commandline (non-dialog) dashed version?
Tip 11654:Select 3D solids by their height, volume, surface (smaller then...)
Tip 11608:Trim to rectangle - cut out a part of a DWG drawing.


Back   All CAD Tips All CAD tips&tricks

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 Forum - tips, utilities, blocks for Autodesk products
CAD:    OS:    Categ: 
Text:  FAQ glossary   



Featuring:
Increase your productivity with our set of BIM add-on functions for Autodesk Revit
CADstudio Revit Tools More info


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