(defun c:kbz ()
  (setq p1 (getpoint "\nPunkt waehlen : "))
  (setq ofang (getvar "OSMODE"))
  (setvar "OSMODE" 0)
					;Die Texthoehe des aktuellen Stils muss festgestellt werden.
					;Falls ein Stil mit fester Texthoehe > 0 aktuell ist, wird im Textbefehl
					;nach dieser nicht mehr gefragt. D.h., die Syntax aendert sich.

  (setq StilName (getvar "TEXTSTYLE"))
  (setq StilTab (tblsearch "STYLE" StilName))
  (setq StilHoehe (cdr (assoc 40 StilTab)))

  (if (= 0.0 StilHoehe)
    (progn (setq th (getvar "TEXTSIZE"))
	   (setq tx (+ (car p1) th))
	   (setq ty (+ (cadr p1) (* 1.0 th)))
	   (setq tz (caddr p1))
	   (setq tp (list tx ty tz))
	   (command ".text" tp th 0.0 (princ (rtos (caddr p1) 2 2)))
    )
    (progn (setq tx (+ (car p1) StilHoehe))
	   (setq ty (+ (cadr p1) (* 1.0 StilHoehe)))
	   (setq tz (caddr p1))
	   (setq tp (list tx ty tz))
	   (command ".text" tp 0.0 (princ (rtos (caddr p1) 2 2)))
    )
  )
  (setvar "OSMODE" ofang)
  (princ)
)