(defun c:SObjekty ()
;;; definice nové funkce kresli
  (setq	gl_pam_hodnoty		;;; globální proměnná uchovávající jednotlivá nastavení
     (list
	(cons "co_kreslit"   "Kruznice")	;;; určení co se bude kreslit
	(cons "stredkex"     "0.0")		;;; x-ova souřadnice středu sostř. kružnic
	(cons "stredkey"     "0.0")		;;; y-ova souřadnice středu sostř. kružnic
	(cons "stredkez"     "0.0")		;;; z-ova souřadnice středu sostř. kružnic
	(cons "strednex"     "0.0")		;;; x-ova souřadnice středu sostř. n-uhelníků
	(cons "stredney"     "0.0")		;;; y-ova souřadnice středu sostř. n-uhelníků
	(cons "strednez"     "0.0")		;;; z-ova souřadnice středu sostř. n-uhelníků
	(cons "pocvrcholune" "3")		;;; počet vrcholů n - úhelníku (editbox)
	(cons "pocvrcholuns" "3")		;;; počet vrcholů n - úhelníku (slider)
	(cons "polomerne"    "3")		;;; poloměr n - úhelníku (editbox)
	(cons "polomerns"    "3")		;;; poloměr n - úhelníku (slider)
	(cons "pocetne"      "1")		;;; počet n - úhelníků (editbox)
	(cons "pocetns"      "1")		;;; počet n - úhelníků (slider)
	(cons "vzdalenostne" "1")		;;; vzdálenost mezi n - úhelníky (editbox)
	(cons "vzdalenostns" "1")		;;; vzdálenost mezi n - úhelníky (slider)
	(cons "polomerke"    "1")		;;; poloměr kružnice (editbox)
	(cons "polomerks"    "1")		;;; poloměr kružnice (slider)
	(cons "pocetke"      "1")		;;; počet kružnic (editbox)
	(cons "pocetks"      "1")		;;; počet kružnic (slider)
	(cons "vzdalenostke" "1")		;;; vzdálenost mezi kružnicemi (editbox)
	(cons "vzdalenostks" "1")		;;; vzdálenost mezi kružnicemi (slider)
	(cons "kruz_stred_but"  "0")		;;; tlačítko - stred kruznice
	(cons "nuhel_stred_but" "0")		;;; tlačítko - stred n úhelníku
     )
  )
  (setq zadani (so:zpusob_zadani))      ;;; nastavení proměnné určující jakým
  					;;; způsobem se mají zadat informace
  (if (= zadani "prikaz")		;;; zadání hodnot pomocí příkazového řádku
    (if	(= (so:zadej_hodnoty) T)
      (so:vykresli)			;;; vykreslení požadovaného objektu,
      					;;; v případě že byly zadány hodnoty
    )
  )
  (if (= zadani "dialog")		;;; zadání hodnot pomocí dialogového boxu
    (if	(= (so:dialog) T)
      (so:vykresli)			;;; vykreslení požadovaného objektu,
      					;;; v případě že byly zadány hodnoty  
    )
  )
  (princ "Funkce c:SObjekty dokončila činnost")	;;; informace o ukončení funkce
  (princ)
)

;;; nakonec zobrazíme informaci pro uživatele, jak má spustit funkci
(princ "\nNezapomeňte nastavit správnou cestu k dialogu ve funkci so:dialog!!!")
(princ "\nFunkce se spouští příkazem  (c:SObjekty)  v IDE Visual LISPu")
(princ "\nFunkce se spouští příkazem  SObjekty v AutoCADu")