(defun c:att (/ i)
  	(setq i (getint "\nStartwert der Punktnummerierung eingeben:"))
  
  	(setq pre (getstring "\n Präfix eingeben "))
  	(setq suf (getstring "\n Suffix eingeben" ))
  
  	(command "ATTREQ" "1")
  	(command "ATTDIA" "0")
  
  	(princ)

  (while 
	  (setq pt (getpoint "\nKreiszentrum anklicken"))
    	  (setq Nummer (strcat pre (itoa(setq i (+ 1 i))) suf))
		(command "Einfüge" "vermpkt" pt "1" "1" "0" Nummer)
	  	(setq i (+ i 1))
		(princ)
   )   
  	
  )