(defun c:cp (/ ss rp bp sp c ag ds pt) (vl-load-com)
  (if (setq ss (ssget ":s"))
    (if (setq rp (getpoint "\nReference point:"))
      (if (setq bp (getpoint "\nBase point:"))
        (if (setq sp (getpoint "\nSpecify second point:"))
          (if (setq c (getint "\nCopy number:"))
            (progn
              (setq ag (angle bp sp) ds (/ (distance bp sp) (1+ c))
                    pt (polar bp ag ds))
              (repeat c
                (vla-move (vla-copy (vlax-ename->vla-object (ssname ss 0)))
                  (vlax-3d-point rp) (vlax-3d-point pt))
                (vla-rotate (vlax-ename->vla-object (entlast)) (vlax-3d-point pt) ag)
                (setq pt (polar pt ag ds)))
            )
          )
        )
      )
    )
  ) (princ)
)