(defun c:rotatetext ( / en ent enX winkel exitflag)

	(setq winkel (getangle "\nBasiswinkel angeben"))
	(setq exitflag nil)

	(if (/= winkel nil)
		(progn
		'Drehung des BKS berücksichtigen
		(setq winkel (+ winkel (angle (trans '(0 0 0) 1 0) (trans '(1 0 0) 1 0))))
		(while (not exitflag)
			(setq enX (entsel "\nTextelement wählen "))
			(if (not enX)
				(setq exitflag T)
				(progn
					(setq en (car enX))
					(setq ent (entget en))
					(if (or (= (cdr (assoc 0 ent)) "TEXT") (= (cdr (assoc 0 ent)) "MTEXT"))
						(progn
							(setq ent (subst (cons 50 winkel) (assoc 50 ent) ent))
							(entmod ent)
							(entupd en)
						)
						(princ "\nGewähltes Element ist kein Textelement!")
					)
				)
			)
		)
		)
	)
)

(princ "\nRotateText geladen. Aufruf durch Eingabe von 'rotatetext'")
(print)