;******************************************************************************
;DREHEN von Objekten die einen definierten Einfügepunkt haben.
;(Texte, Blöcke, Kreise ect.)
;******************************************************************************
(defun c:DREHEN-E (/ faktor aus n i nam ins)
 (terpri)(terpri)
 (setvar "cmdecho" 0)
 (princ "\nDer DREHEN-BASIS-PUNKT ... ist der jeweilige Objekt-Einfügepunkt.")
 (setq drehwink (getreal "\nDrehwinkel für die Objekte: "))
;-----Auswaehlen---------------------------------------------------------------
 (setq aus (ssget) as aus)			;aus=Auswahl der Elemente
 (setq n (sslength aus))			;n=Anzahl der Elemente (max)
 (command "_ucs" "_w")
 (setq i 0)					;Zaehler auf 0
;-----Bearbeiten---------------------------------------------------------------
 (setvar "cmdecho" 0)
 (while (< i n)					;solange wie Zaehler < max
  (setq nam (ssname aus i))			;jedem i aus Auswahl einen Namen
  (setq ins (cdr (assoc 10 (entget nam))))
  (command "_rotate" nam "" ins drehwink)	;nam=nur ein Element
  (setq i(1+ i))				;Zaehler eins weiter
 )						;while
 (command "_ucs" "_p")
 (princ)
)						;defun
;******************************************************************************