;;;Drehwinkel ermitteln und auf Element übertragen
;;;Objekt zum Ermitteln des Winkels kann ein Block, Text oder eine Linie sein
;;;zu drehendes Objekt kann ein Block, Text oder Mtext sein
;;;von Britt Grapentin

(defun c:drehwinkel-klonen (/	    osmode-alt	 daten
		       objekt	    winkel	 gradwinkel
		       objekt2	    altwinkel	 gradaltwinkel
		       diffwinkel
		      )
  (setq OSMODE-ALT (getvar "osmode"))
  (print
    "Objekt anklicken, dessen Drehwinkel ermittelt werden soll"
  )
  (setq daten (entget (car (entsel))))
  (setq objekt (cdr (assoc 0 daten)))

  (if (eq objekt "LINE")
    (progn
      (setq
	winkel (angle (cdr (assoc 10 daten)) (cdr (assoc 11 daten)))
      )
      (print winkel)
    )
  )
  (if (eq objekt "TEXT")
    (progn
      (setq winkel
	     (cdr (assoc 50 daten)
	     )
      )
    )
  )
  (if (eq objekt "INSERT")
    (progn
      (setq winkel
	     (cdr (assoc 50 daten)
	     )
      )

    )
  )
  (setq gradwinkel (angtos winkel 0 4))
  (print (strcat "drehwinkel des Objektes ist: " gradwinkel "°"))
    (print
    "Objekt wählen, dessen Drehwinkel geändert werden soll:"
  )
  (setq objekt2 (entsel))
  (setq objekt (entget (car objekt2)))
  (print objekt)
  (setq	altwinkel
	 (cdr (assoc 50 objekt)

	 )
  )
  
  (setq gradaltwinkel (angtos altwinkel 0 4))
  (princ (strcat "alter Winkel ist: " gradaltwinkel "°"))
 
  (setq	diffwinkel
	 (- 360 (atof gradaltwinkel) (* -1 (atof gradwinkel)))
  )
  (print diffwinkel)
  (command "osmode" "64")
  (print "Basispunkt für Drehung zeigen")
  (command "_rotate" objekt2 "" (getpoint) diffwinkel)
  (setvar "osmode" OSMODE-ALT)
)