Creates separate drawings of selected layouts

[pmxcad]

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

[MSasu]

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

[MSasu]

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)

[pmxcad]

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

PmxCAD