Hlavně jsem nepochopil, proč úhel nejprve převádíte na řetězec a pak zpátky na float (číslo s desetinnou čárkou). Dvojice angtos - atof je nesmyslná. Pokud budete používat "nativní" původní čísla, jedete vždy v základní přesnosti AutoCADu, AUPREC a podobné spíše formátovací záležitosti můžete zapomenout a tentokrát se opravdu nedozoomujete.

jj díky moc,taky jsem vyzkousel 16 a je to v poho... mam takovy pocit ze i excel jede na 16 desetinnych mist, tak to musi stacit :) Bena

Když jsem tam dal 16, tak už jsem se na nepřesnost "nedozoomoval"

Aha, díky za upozornění. Toho jsem si nevšiml (tý dvojky) to bude určitě tím. Musím si najít v helpu jestli se to zaokrouhlení dá úplně vypustit nebo jestli tam musím nastavit jen více desetinných míst... nevíte to náhodou z hlavy? Díky Bena

P.S. tak nepřesnosti beru zpět :)

Dobrý den,
všiml jsem si, že když se mi v lispu vyskytuje funkce "command" (např otočit), tak se do výsledku vnášejí chyby. Myslím tím že když dám něco otáčet v lispu pomocí command, tak se to otočí o trochu jiný úhel, než je ten spočtený. Přisuzuji to nějakému nastavení přesnosti při používání command příkazů v lispu. Ale přesnost v nastavení jednotek autocadu na to nemá vliv.
Nejsnáze pochopitelný je to na příkladu. Udělal jsem funkci "otocrychle", kde otáčím výběr pomocí 3 bodů. Z těchto 3 bodů si spočítám úhel o který se to má otočit. Když si to pak hodně přiblížím, zjistím, že to není otočené úplně přesně. Spočtený úhel je ale určitě správný. (když u jiného lispu podobně počítám úhel, který pak používám pro něco jiného, tak to funguje perfektně).
Tady je ten lisp, dyžtak si to vyzkoušejte:

;;; Otočí podle 3 bodů
(defun C:otocr (/        ORM           SNM               mysset
          counter        stredpt    firstpt      endpt         angle_new
          angle1        angle2     delta_x1      delta_y1   delta_x2
          delta_y2
            )
;;;nastaví orto a krok na 0
(setq ORM (getvar "orthomode"))
(setq SNM (getvar "snapmode"))
(setvar "orthomode" 0)
(setvar "snapmode" 0)
;;;násobný výběr
(setq mysset (ssget))
(setq counter 0)
(while (< counter (sslength mysset))
    (terpri)
    (setq counter (+ counter 1))
)
;;;vlastní funkce
(setq stredpt (getpoint "\nVyber stred otáčení:"))
(setq firstpt (getpoint "\nVyber 1. bod otáčení:"))
(setq endpt (getpoint "\nVyber 2. bod otáčení:"))
(setq delta_x1 (- (nth 0 firstpt) (nth 0 stredpt)))
(setq delta_y1 (- (nth 1 firstpt) (nth 1 stredpt)))
(setq angle1 (atan delta_y1 delta_x1))
(setq delta_x2 (- (nth 0 endpt) (nth 0 stredpt)))
(setq delta_y2 (- (nth 1 endpt) (nth 1 stredpt)))
(setq angle2 (atan delta_y2 delta_x2))
(setq angle_new (atof (angtos (- angle2 angle1) 0 2)))
(command "_rotate" mysset "" stredpt angle_new)

;;; obnovuje původní orto a krok
(setvar "orthomode" ORM)
(setvar "snapmode" SNM)
)

Nevíte někdo jak to udělat, aby to fungovalo správně?
Díky za každou radu, Bena