Bez kódu se samozřejmě nedá přesně zjistit, čím to je. Ale ještě než ho pošlete, zjistěte si, jestli nemáte zapnutý nějaký uchopovací mód. V lispovských programech se to běžně dělá tak, že na žačátku se nastavení OSMODE uloží do proměnné, pak se nastaví na 0 a na konci programu se vrátí původní hodnota. Obdobně pro hladinu, barvu, typ čáry.

Nenastavuji žádné uchopovací módy. Tady uvádím ten výpis. Momentálně tam nemám kreslený druhý rádius.

(defun C:vetrak ()
  (setq
     ctverecx (getdist "Zadej velikost čtverce v ose X: ")
 ctverecy (getdist "Zadej velikost čtverce v ose Y: ")
 prumer (getdist "Zadej vnitřní průměr: ")
 otvorx (getdist "Zadej velikost čtverce upevňovacích otvorů v ose X: ")
 otvory (getdist "Zadej velikost čtverce upevňovacích otvorů v ose y: ")
 dotvor (getdist "Zadej průměr upevňovacích otvorů: ")
 sirka (getdist "Zadej celkovou šířku: ")
 osaz (getdist "Zadej šířku osazení: ")
 stred '(0.0 0.0)
 polomer (/ prumer 2.0)
 prumer1 (+ prumer 14.0)
 konecx (/ ctverecx 2.0)
 konecy (/ ctverecy 2.0)
 pocatekx (- konecx)
 pocateky (- konecy)
   pocatek (list pocatekx pocateky)
 konec (list konecx konecy)
 sox (/ otvorx 2.0)
 soy (/ otvory 2.0)
 sox1 (- sox)
 soy1 (- soy)
 so1 (list sox1 soy1)
 so2 (list sox soy1)
 so3 (list sox1 soy)
 so4 (list sox soy)
 startx (+ konecx 200.0)
 pom1 (+ startx sirka)
 pom2 (+ polomer 7.0)
 pom3 (- pom1 7.0)
 pom4 (- pom1 osaz)
 startxy (list startx polomer)
 konec1 (list pom3 polomer)
 konec2 (list pom1 pom2)
 konec3 (list pom1 konecy)
 konec4 (list pom4 konecy)
 konec5 (list pom4 pom5)
 txtsta '(100.0 100.0)
 txtsta1 '(100.0 95.0)
 txtsta2 '(100.0 90.0)
 txtsta3 '(100.0 85.0)
 hlad "Detail")
  (command "obdélník" "a" 3.0 pocatek konec "")
  (command "kružnice" stred "d" prumer "")
  (command "kružnice" stred "d" prumer1 "")
  (command "kružnice" so1 "d" dotvor "")
  (command "kružnice" so2 "d" dotvor "")
  (command "kružnice" so3 "d" dotvor "")
  (command "kružnice" so4 "d" dotvor "")
  (command "křivka" startxy konec1 "o" "r" 7.0 konec2 "e" konec3 konec4 "")
  (setq starty1 (1+ polomer)
 startxy1 (list startx starty1)
 konec11 (list pom3 starty1))
  (command "úsečka" startxy1 konec11 "")
  (command "text" startxy 2.5 0 startxy "")
  (command "text" konec1 2.5 0 konec1 "")
  (command "text" txtsta 2.5 0 polomer "")
  (command "text" txtsta1 2.5 0 prumer "")
  (command "text" txtsta2 2.5 0 starty1 "")
  (command "text" txtsta3 2.5 0 startxy1 "")
  (command "zoom" "m" "")
  (princ))