;***************************************************************************
;
;   C:f       DREHT ORTHO NACH GEZEIGTER LINIE,BLOCK oder TEXT
;             danke an abcad :-) em
;***************************************************************************

(defun c:f (  / etyp el b p1 p2  )
    (setvar "cmdecho" 0)
    (setq el (car (entsel )));\nZeigen Sie das Element:
    (if el
        (progn
            (setq el (entget el))
    
            (setq etyp (cdr (assoc 0 el)))
            (cond
                ((equal "LINE" etyp)
                    (setq p1 (trans (cdr (assoc 10 el)) 0 1))
                    (setq p2 (trans (cdr (assoc 11 el)) 0 1))
                    (setq b (angle p1 p2))        ;*** Nunmehr bei "SETVAR" im Bogenmaá
                    (setvar "SNAPANG" b)
                )
                ((or 
                    (equal "TEXT" etyp)
                    (equal "INSERT" etyp)
                    (equal "ATTRIB" etyp)
                    )
                    (setvar "SNAPANG" (cdr (assoc 50 el)))
                    
                )
                (T (princ (lisp_message 40375)))
                ;\nElement muß sein: Linie,Text,Attribut oder Block.
            )
            (terpri)
        )
    )
(prin1)
)