I created this very simple routine to copy objects to layouts
Any suggestions are welcomed
(defun c:CTLyot (/ Ctb Obj Lyt)
(prompt "\nSelect objects to copy to all alyouts")
(setq Ctb (getvar "CTAB"))
(setq Obj (ssget))
(setq ObjCcnt (sslength Obj))
(command "_copybase" '(0 0) Obj "")
(foreach Lyt (layoutlist)
(command "LAYOUT" "S" Lyt)
(command "PSPACE")
(command "_pasteclip" '(0 0))
)
(setvar "CTAB" Ctb)
(command "ERASE" obj "")
(princ)
)