;
; Von cad.de User: CADmium
; Forumslink: http://ww3.cad.de/foren/ubb/Forum145/HTML/003794.shtml
;
; Ergänzt mit Multiführlungslinine am 11.03.2025 mit Gemini. Leider nur als Zielobjekt. Nicht als Quellobjekt.
; Ergänzt mit Leer-Klickverhalten und bessere Meldungen am 01.04.2025 mit Gemini. Leider ist der Exit nicht so schön mit ESC. ENTER oder rechte Maustaste wäre logischer.
;
(vl-load-com)

(defun C:DHOBJEKT (/ OBJ R)
  (while
    (not
      (and
        (setq OBJ (car (entsel "\nObjekt mit Basiswinkel wählen: ")))
        (setq OBJ (vlax-ename->vla-object OBJ))
        (or
          (not (vl-catch-all-error-p (setq R (vl-catch-all-apply 'vla-get-rotation (list OBJ)))))
          (prompt "\nWinkel nicht auslesbar... Mögliche Elemente sind: Texte, MTexte, Blöcke")
        )
      )
    )
    (prompt "\nKein Element gefunden... Mögliche Elemente sind: Texte, MTexte, Blöcke.")
  )

  (while T ; Endlos-Schleife
    (setq OBJ (entsel "\nZu drehendes Objekt wählen (oder ESC zum Beenden): "))
    (if (null OBJ)
      (progn
        (prompt "\nKein Element gefunden... Mögliche Elemente sind: Texte, MTexte, Blöcke, Multiführungslinien.")
        (setq OBJ "beenden") ; Setzt OBJ auf einen Wert, der die Schleife beendet
      )
      (and
        (setq OBJ (car OBJ))
        (setq OBJ (vlax-ename->vla-object OBJ))
        (cond
          ((= (vla-get-ObjectName OBJ) "AcDbMLeader")
           (vla-put-TextRotation OBJ R)
          )
          (T
            (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-rotation (list OBJ R)))
              (prompt "\nWinkel nicht übertragbar... Mögliche Elemente sind: Texte, MTexte, Blöcke, Multiführungslinien.")
            )
          )
        )
      )
    )
    (if (= OBJ "beenden")
      (princ) ; Beendet die Funktion ohne Fehler
    )
  )
  (princ)
)