(defun c:Prozent (/ ech ang pt1 pt2 dh ds el)
  (setq ech (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (princ "\n Angabe über %-Neigung einer Linie")
  (princ
    "\n Wert durch Ersetzen eines vorhandenen Textes absetzen\n"
  )

(SETQ pt1 (getpoint "\nErster Punkt:"))
(SETQ pt2 (getpoint pt1 "\nZweiter Punkt:")) 
(SETQ pt1 (TRANS pt1 1 0))
(SETQ pt2 (TRANS pt2 1 0))
(SETQ dh  (- (CADDR pt2) (CADDR pt1)))
(SETQ ds  (DISTANCE pt1 pt2))
(SETQ ang (/ dh (SQRT (- (EXPT ds 2) (EXPT dh 2)))))


  (setq el (entget (car (entsel "\n   vorhandenen Text picken... "))))
  (entmod
    (subst (cons 1 (strcat (rtos (ABS (* ang 100)) 2 2) "%")
   )
   (assoc 1 el)
   el
    )
  )
  (setvar "CMDECHO" ech)
  (princ)
)