||copy copy : FREE Source Code!|
This code is a simple example of the power of AutoLisp. It elimiates the need for the Multiple option of the AutoCAD Copy command, because the user is always in copy multiple mode. If you would like to learn to lisp we strongly recommend the book featured below.
(defun c:cc ( / ss1 bpt)
(while (not ss1)
(princ "\nCopy multiple: ")
(setq ss1 (ssget))
(while (not (setq bpt (getpoint "\nSpecify base point: "))))
(command "._copy" ss1 "" "m" bpt)