(defun c:ausgabe
  ( /)
  (setq ech (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  
  (princ "\n Ausgabe über Neigung einer Linie")
  
  (setq sli (entsel "\n   Linie picken... "))               ; Element und Pickpunkt
  
  (setq li (entget (car sli)))                             ; Element (Linie)
  (setq x1 (car  (trans (cdr(assoc 10 li)) 0 1)))
  (setq y1 (cadr (trans (cdr(assoc 10 li)) 0 1)))
  (setq x2 (car  (trans (cdr(assoc 11 li)) 0 1)))
  (setq y2 (cadr (trans (cdr(assoc 11 li)) 0 1)))
  
  (setq _y (abs (- y1 y2)))
  (setq _x (abs (- x1 x2)))

  (IF (< _y 0.000001) (setq _y 10E1000))
  (IF (< _x 0.000001) (setq _x 10E1000))


;Berechnung %-Wert und Umwandlung in Format XX.X und Anhang "%"
  (setq proz (abs (* (/ _y _x) 100)))

;Längenermittlung
  (setq Länge (+ (* _y _y)(* _x _x)))
  (setq Wurzel (sqrt Länge))

;Verhältnis  
  (setq 1zuX (/ _x _y))
 
;Winkel
  (setq Winkel (angle (cdr (assoc 10 li)) (cdr (assoc 11 li)))) 
  (SETQ grad (/ (* Winkel 180) PI))  
  (SETQ gon (/ (* Winkel 200) PI))  

;Ausgabe  
  (alert
     (strcat
         "\n%                = "(rtos proz 2 4)
         "\nVerhältniss 1 : "(rtos 1zuX 2 3)
         "\n-----------------------------"
         "\nWinkel grad  = "(rtos grad 2 4)
         "\nWinkel gon   = "(rtos gon 2 4)
         "\n-----------------------------"
         "\nLänge          = "(rtos Wurzel 2 3)
         "\n-----------------------------"
         "\nPunkt 1  X    =  "(rtos x1 2 4)
         "\n             Y    =  "(rtos y1 2 4)
          "\n-----------------------------"
         "\nPunkt 2   X  =  "(rtos x2 2 4)
         "\n             Y   =  "(rtos y2 2 4)
     )
  )
(princ "\n ")
(princ "\nBefehl:")

  (setvar "CMDECHO" ech)
) ;end.