(Defun C:ZAHLEN ()
 (START)
 (prompt "\n\n\nDie aktuelle Texthöhe wird übernommen...")
 (Setq A (Getint "\nStartnummer: "))
   (Setq E 1)
   (Setq I 0)
 (Initget 1 "A")
 (Setq P1T (Setq P1 (Getpoint"\nEinfuegepunkt oder Abbruch")))
   (While(/= P1T "A")
     (Setq F (Itoa A))
     (Command "Text" "z" P1 "" I F)
     (Setq A (+ A E))
     (Initget 1 "A")
     (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
   )
 (end)
 (Princ)
)
(defun *error* (em)
 (end)
 (princ "\nAbbruch : ")
 (princ em)
)
(defun end()
 (if clay
     (progn
         (command "LAYER" "SE" clay "")
         (setvar "BLIPMODE" bmod)
         (setvar "CMDECHO" 1)
         (setvar "MENUECHO" mech)
         (setvar "OSMODE" mosm)
         (setvar "SNAPMODE" msna)
         (setvar "ORTHOMODE" mort)
      )
 )
 (princ)
)
(defun start()
 (setq bmod (getvar "BLIPMODE")
       mosm (getvar "OSMODE")
       msna (getvar "SNAPMODE")
       mort (getvar "ORTHOMODE")
       clay (getvar "CLAYER")
       mech (getvar "MENUECHO")
 )
 (setvar "BLIPMODE" 0)
 (setvar "CMDECHO" 0)
 (setvar "MENUECHO" 3)
 (setvar "OSMODE" 0)
 (setvar "SNAPMODE" 0)
 (setvar "ORTHOMODE" 0)
; (command "LAYER" "M" "Text" "Fa" "1" "" "")
)