(defun c:ko_rot_1 (/ ss p0 anz delta_z ges_w)
  (setvar "osnapcoord" 1)
  (setq ss (ssget "_:S"))
  (setq p0 (getpoint "\nDrehpunkt wählen: "))
  (setq anz (getint "\nAnzahl der Objekte: "))
  (setq delta_z (getdist "\nZ-Abstand der Objekte: "))
  (setq ges_w (getangle "\nAuszufüllender Winkel: "))
  (command "_copy" ss "" (list 0 0 0) (list 0 0 delta_z) "")
  (command "_rotate"
	   "_l"
	   ""
	   p0
	   (* (/ ges_w (1- anz)) (/ 180 pi))
  )
  (repeat (- anz 2)
    (command "_copy"
	     "_l"
	     ""
	     (list 0 0 0)
	     (list 0 0 delta_z)
	     ""
	     (command "_rotate"
		      "_l"
		      ""
		      p0
		      (* (* (/ ges_w (1- anz)) (/ 180 pi)))
	     )
    )
  )
)