(defun  c:skruznice (/ pocet polomer pol_kresl)
  (initget 1)
;;; kontrola zadání číselné hodnoty ( 0 potvrzení zadání je ENTREM)
  (setq stred (getpoint "\nZadej střed obrazce: "))
;;; zjištění hodnoty středu obrazce  
  (initget 1)
;;; kontrola zadání číselné hodnoty ( 0 potvrzení zadání je ENTREM)  
  (setq polomer (getreal "\n Zadej poloměr kružnice: "))
;;; zjistění hodnoty poloměru
  (setq pocet 5)
;;; nastavení hodnoty čítače pro smyčku
  (while (> pocet 0)
;;; dokud je co kreslit opakuj
    (setq pol_kresl (+ polomer (* 3 (- pocet 1))))
;;; nastavení aktuálního poloměru kružnice
    (command "_circle" stred pol_kresl)
;;; vykresli kruznici
    (setq pocet (- pocet 1))
;;; zmenši počet kružnic o 1
  ) ;_ konec while
) ;_ konec defun

(princ "\nFunkce se spouští příkazem  (c:skruznice) v IDE Visual LISP")
(princ "\nFunkce se spouští příkazem  skruznice v AutoCADu")