V tématu http://www.cadforum.cz/forum/forum_posts.asp?TID=6310 WarCZ má definovaný
...
(setq bodA (getpoint "\nZadej pocatecni bod A: "))(setq a (getint "\nZadej delku hrany krychle: "))(setq xbodA (car bodA))(setq ybodA (cadr bodA))(setq bodB (list (+ xbodA a) ybodA 0))
...
Jaký je rozdíl kromě jedné úrovně závorek mezi
(setq bodAA (list xbodA (+ ybodA a) 0))
a
(setq bodAA (list (xbodA (+ ybodA a) 0)))

Proč v druhém případě vypíše
; error: bad function: 124.0

V tom druhém případě se snažíte spouštět (vyhodnocovat) funkci jménem "xbodA" - což evidentně funkce není.
 
Šlo by použít konstrukci:  (list '(xbodA (+ ybodA....)    ale ta udělá o jednu úroveň seznamu navíc -- např. ((124.0 98.7))