Edit Multiple Layouts Simultaniously

Does anyone know how I can edit 5 layouts at the same time?

Specifically copying and moving blocks or viewports between the layouts with out having to copy with basepoint, change layout, and then paste....

Any info is appreciated. Thanks

Maybe this?

[b][color=BLACK]([/color][/b]defun c:clay  [b][color=FUCHSIA]([/color][/b]/ *error* vlst ovar layLst ss pt[b][color=FUCHSIA])[/color][/b]

 [b][color=FUCHSIA]([/color][/b]defun *error*  [b][color=NAVY]([/color][/b]msg[b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]if ovar
     [b][color=MAROON]([/color][/b]mapcar 'setvar vlst ovar[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]not [b][color=GREEN]([/color][/b]member msg '[b][color=BLUE]([/color][/b][color=#2f4f4f]"Function cancelled"[/color] [color=#2f4f4f]"quit / exit abort"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]princ [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]"\nError: "[/color] [b][color=BLUE]([/color][/b]strcase msg[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\n<<--  Cancelled  -->>"[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]princ[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]

 [b][color=FUCHSIA]([/color][/b]setq vlst '[b][color=NAVY]([/color][/b][color=#2f4f4f]"CTAB"[/color] [color=#2f4f4f]"CMDECHO"[/color] [color=#2f4f4f]"OSMODE"[/color][b][color=NAVY])[/color][/b]
       ovar [b][color=NAVY]([/color][/b]mapcar 'getvar vlst[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]

 [b][color=FUCHSIA]([/color][/b]setq layLst [b][color=NAVY]([/color][/b]vl-remove-if '[b][color=MAROON]([/color][/b]lambda [b][color=GREEN]([/color][/b]x[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]eq x [b][color=BLUE]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]layoutlist[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prompt [color=#2f4f4f]"\nSelect Items to Copy... "[/color][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]if [b][color=NAVY]([/color][/b]and layLst
          [b][color=MAROON]([/color][/b]setq ss [b][color=GREEN]([/color][/b]ssget [b][color=BLUE]([/color][/b]list [b][color=RED]([/color][/b]cons 410 [b][color=PURPLE]([/color][/b]getvar [color=#2f4f4f]"CTAB"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                pt [b][color=GREEN]([/color][/b]getpoint [color=#2f4f4f]"\nSpecify Base Point: "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]progn
     [b][color=MAROON]([/color][/b]mapcar 'setvar [b][color=GREEN]([/color][/b]cdr vlst[b][color=GREEN])[/color][/b] '[b][color=GREEN]([/color][/b]0 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_copybase"[/color] pt ss [color=#2f4f4f]""[/color][b][color=MAROON])[/color][/b]
     [b][color=MAROON]([/color][/b]foreach x  layLst
       [b][color=GREEN]([/color][/b]setvar [color=#2f4f4f]"CTAB"[/color] x[b][color=GREEN])[/color][/b]
       [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_pasteclip"[/color] pt[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
   [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\n<!> Single Layout or Nothing Selected <!>"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]mapcar 'setvar vlst ovar[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]