new layout and view port from model

Hello, I am looking for a lisp that does the following action (if possible):

I have multiple rectangles in model space that ultimately would be the edges of the layout and the viewport. I would like to have a routine that would create a single layout (its papersize would be inserted in a dialog box) for each rectangle and in each layout a viewport with the contents of each rectangle at a scale that would be inserted in a dialogbox will be created.

In other words, when running this routine I could select the papersize (e.g. A4) and scale of the viewport, then select the borders of each rectangle and a layout and viewport would be created as shown in the sample file.

Is this possible?

Thank you.sample.dwg

Its possible

Select rectang, scale and size

work out new rectang size at plot scale

make new layout, Mview new rectang

go mspace Zoom C of old rectang at new scale

Pspace all done.