If I understand you right, you want a selectionset of all new created entities. Those entities are added to the database, so you first need to find the last object.
(entlast) doesn't work if the last entity is a block with attributes and polylines also can give some problems. You need to find the true end of the existing database first. This can be done with something like:
(defun LASTENT (/ E0 EN)
(setq E0 (entlast))
(while (setq EN (entnext E0))
(setq E0 EN)
)
E0
)
To make a sectionset of all new created entities you can use:
(defun newSS (el / ss)
(setq ss (ssadd))
(while (setq el (entnext el))
(ssadd el ss)
)
ss
)
Your program will be something like:
(defun c:Test (/ el)
(setq el (lastent)); This is the true last entity
(command ".copy" pause)
(setq AddedEnts (newSS el))
(princ "\nAddedEnts contains the new created entities.")
(princ)
)