Something along these lines [in most basic terms, very lightly tested]?
(defun C:NCO2 (); = Nested-Copy and Offset 2 drawing units
(command
"_.ncopy" (getpoint "\nNested object to copy & offset: ") "" "0,0" ""
"_.offset" 2 (list (entlast) (getvar 'lastpoint)) pause ""
); command
(prin1)
)
It honors your setting for the Erase option in the Offset command, but could be made to delete the Ncopied object regardless, if that's part of what you want to do.
It's a little odd about using (getpoint) for the selection [including running Osnap if it's on], because for some reason using (car (nentsel)) [the object part of nested-object selection] doesn't work in NCOPY, as I fully expected it to -- it says "No valid objects selected for NCOPY." The result from (getpoint) is accepted, and finds the nested object. That could probably be accounted for in some other way.
It doesn't do some things that it could be made to, such as to verify that the nested object you selected is Offsettable.
Kent Cooper, AIA