;Angle array routine, much easier than autocad array.
;angepasst von S. Rief, Fachschule für Holztechnik, Stuttgart
(defun C:mehrfachkopie ( / ss ang bp cnt dist d)
  (cond
    (  (setq ss (ssget))
       (initget 1)
       (setq bp (getpoint "\nStartpunkt: "))
       (initget 1)
       (setq ang
           (getangle bp "\nRichtung: "))
         (initget 7)
         (setq dist
           (getdist "\nAbstand zwischen Objekten: "))
         (initget 7)
         (setq cnt (getint "\nAnzahl Kopien: "))
         (setq d 0.0)
         (setvar "cmdecho" 0)
         (command "_.undo" "_g"
                  "_.copy" ss "" "_m" bp)
         (repeat (1- cnt)
           (command
               (polar bp ang (setq d (+ d dist)))))
               (command "" "_.undo" "_e")
        )
      )
      (princ)
)