I find it useful. However, i made up a little adjustement
(defun c:nrefcopy ( / ns e p )
(setq e (cadar (reverse (setq ns (nentsel "\nPick nested reference to copy from parent reference")))))
(setq p (cadr ns))
(command "_.-REFEDIT" "_non" p "_O" "_N" "_non" p "" "_Y")
(command "_.COPY" "_non" p "" "0,0" "0,0" "")
;(while (< 0 (getvar 'cmdactive)) (command "\\")) ..? did not understand what it does..?
(command "_.REFSET" "_R" (entlast) "")
(command "_.REFCLOSE" "d") ; discard all changes, PICK THE ITEM BUT DO NOT SAVE, POSSIBLE FILE PROP REVISIONS ETC., ITS SAVER
(command "_.move" p "" pause) ; HIGHLIGHT IT AND BEGIN A MOVE ACTION
(princ)
)
What do you think?