; Erstellt mit Gemini am 11.03.2025
; Dreht mehrere Texte von Multiführungslininen anhand einer Linie oder einer Winkeleigaben
;
(defun c:DHMultifuehrungslinien (/ ss ent ang ang-rad obj data)
  (setq ss (ssget ":L" '((0 . "MULTILEADER"))))
  (if ss
    (progn
      (setq ang (getangle "\nNeuen Winkel eingeben: ")) ; Direkte Winkelabfrage
      (setq ang-rad ang)
      (command "._UNDO" "Beginn")
      (repeat (sslength ss)
        (setq ent (ssname ss 0))
        (setq obj (vlax-ename->vla-object ent))
        (vla-put-TextRotation obj ang-rad)
        (ssdel ent ss)
      )
      (command "._UNDO" "Ende")
    )
    (princ "\nKeine Multifuehrungslinien ausgewaehlt.")
  )
  (princ)
)