(defun c:SObjekty ()
;;; definice nové funkce kresli
  (setq zadani (so:zpusob_zadani))
;;; nastavení proměnné určující jakým způsobem se mají zadat informace

  (if (= zadani "prikaz")
    (if	(= (so:zadej_hodnoty) T)
      (so:vykresli)	;;; vykreslení požadovaného objektu, v případě že byly zadány honoty
    )
  )

  (if (= zadani "dialog")	;;; zavolání dialogového boxu
    (if	(= (so:dialog) T)
      (so:vykresli)		;;; vykreslení požadovaného objektu
    )
  )
  
  (princ "\nFunkce c:SObjekty právě dokončila činnost")	;;; informace o ukončení funkce
  (princ)
)

(defun so:zpusob_zadani()
  (princ "\nTady bude v budoucnu rozhodovací funkce. ")
)

(defun so:dialog()
  (princ "\nTady bude v budoucnu dialogový box")
  T
)

(defun so:zadej_hodnoty()
  (princ "\nTady bude v budoucnu zadání hodnot od uživatele")
  T
)

(defun so:vykresli()
  (princ "\nTady bude v budoucnu vykreslení n - úhelníků")
)

(defun so:kresli_nuhelnik()
  (princ "\nTady bude v budoucnu vykreslení n - úhelníků")
)

(defun so:kresli_kruznici ()
  (princ "\nTady bude v budoucnu vykreslení kružnic")
)

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