(defun c:cc ( / ss1 bpt)
	(while (not ss1)
		(princ "\nCopy multiple: ")
		(setq ss1 (ssget))
	);while
	(while (not (setq bpt (getpoint "\nSpecify base point: "))))
	(command "._copy" ss1 "" "m" bpt)
);defun