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 21138×

Comments Tell a friend

this tip shared by ARKANCE experts applies to: AutoCAD ·

See also:
Tip 14962:	How do you connect two offset lines with an ogee curve, double-arc wave?
Tip 14946:	Dimensioning the arc length and radius at the same time.
Tip 14944:	How to import an SVG file into AutoCAD? (SVGimport)
Tip 14935:	"Mechanical" osnap modes in AutoCAD Mechanical.
Tip 14911:	Using symbolic variables to enter repeated values in AutoCAD.

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:

Text:

FAQ

Featuring:
Take advantage of orthophotos, point clouds, and design files. Get better quality design changes faster with Pointscene

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

CADforum

Tips, tricks, utilities, help, how-tos and FAQ for AutoCAD, LT, Inventor, Revit, Map, Civil 3D, Fusion, Forma, 3ds Max and other Autodesk software (community support by ARKANCE). See About CADforum.

ARKANCE CZ - Autodesk Platinum Partner & Training Center & Consulting Services Partner

CONTACT:
webmaster.cz@arkance.world | tel. +420 910 970 111



Visitors now: 2112