CAD tip # 1365:

Otázka CAD
% platforma kategorie

Jak vygenerovat pomocí AutoLISPu náhodné číslo?

Použijte následující funkci LISP generátoru pseudonáhodného čísla:

(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)
  )
)

Každé zavolání funkce (rnd) pak vrátí pseudonáhodné číslo z intervalu (0,1). Pro celá čísla od 0 do 20 tedy např. použijte (fix(* 20 (rnd))).

ACAD

* CAD

1.6.2001 3730×

lisp

Připomínky Přeposlat

Zaslat obchodní dotaz

Související CAD produkty:

AutoCAD

Ceny - CAD eShop:

AutoCAD

platí pro: AutoCAD ·

CADstudio

Vybíráme: Kde a jak lze získat zkušební (trial) verzi AutoCADu nebo jiného produktu Autodesk?

Zprávy: ARKANCE – nové jméno, stejný tým

Zpět Všechny další tipy

Problém aplikování SP2 pro Autodesk Inventor. « | » Jak zakódovat LSP program aby jej nebylo možné editovat?

Pomohl vám tento tip? Provoz služby CADForum.cz podpoříte i nákupem produktů Autodesk u provozovatele tohoto serveru a Platinum partnera Autodesku, firmy Arkance Systems.
Můžete si také přidat odkaz na vaše stránky:

CAD: OS: Kateg:
Text:	FAQ

Tipy a triky prosím využívejte na vlastní zodpovědnost.
Provozovatel (Arkance Systems CZ s.r.o.) nenese odpovědnost za případné potíže vzniklé v souvislosti s použitím kteréhokoliv z uvedených tipů.
Pro plné zvládnutí dané aplikace doporučujeme absolvování některého z nabízených CAD školení.
Další publikování obsahu je dovoleno jen se souhlasem autora.

	CAD Fórum - tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion 360, Forma a další Autodesk aplikace (support firmy Arkance Systems). Viz O portálu.	Arkance Systems CZ/SK s.r.o. (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner	KONTAKT: webmaster.cz@arkance-systems.com tel. +420 910 970 111
	Copyright © 2024 \| Web reklama na tomto serveru \| Ochrana soukromí, podmínky

CZ \| SK \| EN \| DE
Přihlášení
či registrace
	právě nás čte: 6525