Lisp plot batch formaat

[dmscholten87]

Ik heb een vraag over een lisp.
Onderstaande lisp gebruik ik voor het snel en automatisch laten maken van PDF bestanden.
Deze laad ik in, in stabi via scripts.
Beetje zelfde idee als publish alleen hoeven niet alle tekeningen op te staan.



_plotAllLayouts
(defun c:plotAllLayouts (/ ENTERNAME LAYLIST)
(vl-load-com)
(setq layList (layoutlist))
(foreach LayoutName layList
(If (/= Layoutname "Model")
(progn
(setvar "ctab" LayoutName)
(command
"-plot"
"y" ;Detailed plot configuration? [Yes/No]
LayoutName ;Enter a layout name or [?]
"DWG to PDF.pc3" ;Enter an output device name or [?]
(setq format "A0") ;Enter paper size or [?]
"M" ;Enter Millimeters or inches
"L" ;Enter drawing orientation [Portrait/Landscape]
"N" ;Plot upside down? [Yes/No]
"E" ;Enter plot area [Display/Extents/Limits/View/Window]
(setq scale "1=1") ;Enter plot scale (Plotted Pixels=Drawing Units) or [Fit]
"C" ;Enter plot offset (x,y) or ['Center]
"Y" ;Plot with plot styles? [Yes/No]
"test.ctb" ;Enter plot style table name or [?] (enter . for none)
"Y" ;Plot with lineweights? [Yes/No]
"N" ;Scale lineweights with plot scale? [Yes/No] <No>:
"N" ;Plot paper space first? [Yes/No] <No>:
"N" ;Hide paperspace objects? [Yes/No] <No>:
"N" ;Write the plot to a file [Yes/No] <N>:
"Y" ;Save changes to page setup or model tabl [Yes/No]? <N>
"Y" ;Proceed with plot [Yes/No]
)
);end progn
);end if
);end for each
);end defun



Nu maakt hij alleen bij elke tekening er een A0 van omdat het zo is ingesteld.
Ik zou alleen willen dat die de gegevens zoals ingesteld in page setup overneemt.
Weet alleen niet hoe ik dit moet aanpassen.
Iemand hier een idee over?

[jimpie]

waarom geen publish?
Hiervoor dienen toch ook niet alle tekeningen open te staan en neemt automatisch instellingen van je page setup.

[sschevers]

dmscholten87,

Kijk eens naar de bijlage. Denk dat je daar een heel eind mee komt. Tijdens het testen komt de vraag of je de bestandsnaam wil opgeven. Weet niet of je dat wilt.

groeten

stephan