;;zeichnet kreise zwei-reihig
;;fragt ob an der stelle ein kreis gezeichnet werden soll
(command "_ucsicon" "_no");;bks KEIN Ursprung

(setq button1  (list 0 0)
      button2  (list 42 0)
      button3  (list 0 42)
      button4  (list 42 42)
      button5  (list 0 84)
      button6  (list 42 84)
      button7  (list 0 126)
      button8  (list 42 126)
      button9  (list 0 168)
      button10 (list 42 168)
      button11 (list 0 210)
      button12 (list 42 210)
      button13 (list 0 252)
      button14 (list 42 252)
);;end setq

(command "zoom" "-50,-30" "85,285")

(setq button_nr 0)
(repeat 14
  (command "_circle" (eval (read (strcat "button" (itoa (setq button_nr (1+ button_nr)))))) "d" 34.5)
	;;liest variabel "button<x>" und zeichnet kreis dort hin
  (initget (+ 2 4) "J N")
  (setq eingabe (getkword "\nSoll hier ein Kreis hin? (J)a oder (N)ein <J>: "))
  (if (= eingabe nil) (setq eingabe "J"))

  (cond ;;Fallunterscheidung
    
   ((= eingabe "N")
    (progn
      (command "_erase" "L" "")
    )
   )

   ((= eingabe "J")    
    (progn
      ;;Haltestellenbezeichnung holen und zeigen
	  (initget (+ 128));;hat vorrang über KEINE eingabe
	  (setq bez (getkword (strcat "\nBezeichnung der Haltestelle?: ")));;variabel bez - getstring T leertaste erlaubt
	                      
	  (command "-layer" "SE" "0" "")
	  (command "text" "S" "standard" "P" "MI"
		   (eval (read (strcat "button" (itoa button_nr ))))
		   "10" "0" bez );;end command
    )
   )
   
  );;end cond

);;end repeat