(Defun C:ZAHLEN ( /  temp)
  
(if (or (not (setq wunschlayer
    (getstring
      (strcat
"Wunschlayer:<"
(if
  (and wunschlayer (/= wunschlayer ""))
    wunschlayer
    "0")
">"))))
(= wunschlayer ""))
  (setq wunschlayer "0"))
(if (not (setq wunschhoehe
(getreal (strcat "Wunschhöhe:<"
  (if wunschhoehe
    (rtos wunschhoehe 2 1)
    "2.5")
  ">"))))
  (setq wunschhoehe 2.5))

(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 (strcat"Stellplatz"(Itoa A)))
    (Command "Text" "z" P1 "" I F)
    (entmod (subst (cons 8 wunschlayer)
  (assoc 8
  (setq temp (subst (cons 40 wunschhoehe)
    (assoc 40 (entget (entlast)))
    (entget (entlast)))))
  temp))
    (Setq A (+ A E))
    (Initget 1 "A")
    (Setq P1T (Setq P1 (Getpoint "\nEinfuegepunkt oder A für Abbruch")))
  )
(end)
(Princ)
)