Zaokrouhlení

AutoLISP neobsahuje klasickou funkci pro zaokrouhlení jako jiné jazyky, ale je možné využít funkci FIX, která odstraňuje část čísla za desetinnou čárkou.

Přesnost je možné nastavit například jako "0.001" pro zaokrouhlení na tři desetinná místa, "100" pro zaokrouhlení na stovky nebo třeba "5" pro zaokrouhlení na násobky pěti.

---

(defun round (cislo presnost)
	(* presnost
		(if (minusp cislo)
			(fix (- (/ cislo presnost) 0.5))
			(fix (+ (/ cislo presnost) 0.5))
		)
	)
)

---

Soubor ke stažení