(defun c:Prozent (/ ech ang pt1 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 ang (angle (setq pt1 (getpoint "\nErster Punkt:"))
   (getpoint pt1 "\nZweiter Punkt:")
    )
  )
  (setq el (entget (car (entsel "\n   vorhandenen Text picken... "))))
  (entmod
    (subst (cons 1
(strcat (rtos
   (abs (* 100 (/ (sin ang) (cos ang))))
   2
   2
)
"%"
)
   )
   (assoc 1 el)
   el
    )
  )
  (setvar "CMDECHO" ech)
  (princ)
)