CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]
CZ | EN | DE
Login or
registration
  Visitors: 3657

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    15961×  
Prices - CAD eShop:
applies to: AutoCAD ·

See also:
Tip 12914:Geo2GPS - web map from any coordinate of an AutoCAD DWG.
Tip 12837:RenameCSV - rename layers, blocks, layouts, views, linetypes using Excel tables
Tip 12830:Converting pseudo-tables consisting of lines and texts to TABLE objects in AutoCAD DWGs.
Tip 12796:How to reorder custom DWG properties?
Tip 12724:Rhomboid - how to draw parallelograms in AutoCAD?


Back   All CAD Tips



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:
Add .CIT raster format support to AutoCAD and Map and Civil 3D
CITin More info


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.
TOPlist