;;;Dateiendung .txt wieder in *.lsp umbenennen (kann sonst nicht an Beitrag gehängt werden)
(defun c:anzahl-plotten	()

  (setq L-1 "____PLKO-ANZAHL") ;;;anpassen!
  (setq F-1 "4")  ;;;anpassen!
  (command "layer" "mach" L-1 "fa" F-1 L-1 "")

  (setq TEXTHOEHE 3.5)  ;;;anpassen!
 
  (setq	ANZAHL
	 (getint "\n Anzahl der Plots eingeben:"
	 )
  )
  (setq
    E1 (getpoint
	 "\n Einfügepunkt Text Anzahl zeigen:"
       )
  )
  
  (setq ZAEHLER 1)
  
  (while (<= ZAEHLER ANZAHL)
    (command "layer" "se" L-1 "")
    (command "text"
	     "p"
	     "mi"  ;;;oder andere Ausrichtung eintragen!
	     E1
	     TEXTHOEHE
	     "0"
	     (rtos ZAEHLER 2 1)
	     ""
    )
    (setq OBJ-T (entlast))
    (command "_.-plot"
	     "n"
	     ""
	     ""
	     ""
	     "n"  ;;;nicht in Datei ausgeben
	     "n"  ;;;änderungen nicht speichern
	     "j")
    
    (print (strcat "Plot Nr. " (rtos ZAEHLER 2 1) " wurde zum Plotter geschickt"))
    
    (setq ZAEHLER (+ ZAEHLER 1))
    (command "_erase" OBJ-T "")
  )				
 
)
;;;ENDE DEFUN