(defun c:ko_rot	(/)
  (setvar "osnapcoord" 1)
  (setq ss (ssget "_:S"))
  (setq p0 (getpoint "\nDrehpunkt wählen: "))
  (setq anz (getint "\nAnzahl der Kopien: "))
  (setq delta_z (getdist "\nZ-Abstand der Kopien: "))
  (setq delta_w (getangle "\nInkrementwinkel: "))
  (command "_copy" ss "" (list 0 0 0) (list 0 0 delta_z) "")
  (command "_rotate" "_l" "" p0 (* delta_w (/ 180 pi)))
  (repeat (- anz 1)
    (command "_copy"
	     "_l"
	     ""
	     (list 0 0 0)
	     (list 0 0 delta_z)
	     ""
    (command "_rotate" "_l" "" p0 (* delta_w (/ 180 pi))))
  )
)