(defun c:ZWert ( / ins zw pt inspt)
  (princ "\nBlock wählen: " )
  (setq ins (entsel))
  (if ins
    (progn
      (setq ins(car ins)
    zw (caddr(setq inspt (cdr(assoc 10 (entget ins)))))
    )
      (initget 1)
      (setq pt (getpoint inspt "\nTexteinfügepunkt: "))
      ;(mk:text LAYER STIL STARTPUNKT DREHW HÖHE BREITE TEXT
      (mk:text "0" "Standard" pt 0.0 2.5 1.0 (rtos zw 2 2))
      )
    )
  (princ)
  )

(defun mk:text (layer stil ipt w ho br wert /)
  (entmake (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(8 . "0")
    '(100 . "AcDbText")
    (cons 10 ipt)
    (cons 40 ho)
    (cons 1 wert)
    (cons 50 w)
    (cons 41 br)
    '(51 . 0.0)
    (cons 7 stil)
    '(71 . 0)
    '(72 . 0)
    '(11 0.0 0.0 0.0)
    '(210 0.0 0.0 1.0)
    '(100 . "AcDbText")
    '(73 . 0)
    )
  )
  )