Creates separate drawings of selected layouts

Hello,

I found a lisp "LayoutsToDwgs.lsp". Is a great lisp but i like to have one in which i can select the layouts to create dwg`s.

Can someone help me?

Thanks,

PmxCAD

LayoutsToDwgs.lsp

Just replace this line:

(foreach lay (layoutlist)

with:

(if (not (and (setq lay (getstring "\nIndicate layout to export: "))
             (member (strcase lay) (mapcar 'STRCASE (layoutlist)))))
(exit)
)
(progn

Or, to make it more user friendly, use this:

(prompt "\n\nIndicate index of layout to export")
(textscr)
(setq index       0
     listLayouts (layoutlist))
(foreach theLayout listLayouts
(prompt (strcat "\n   " (itoa (setq index (1+ index))) " = " theLayout))
)
(if (not (and (setq indexLayout (getint "\nLayout index: "))
             (<= indexLayout (length listLayouts))))
(exit)
(setq lay (nth (1- indexLayout) listLayouts))
)
(graphscr)
(progn

to replace this line from your original routine:

(foreach lay (layoutlist)

Ok Mircea, works super. Is it also possible to select more layouts at the same time?

PmxCAD