Ri: Script per salvare il report corrente come .ppt, attivato dal clic del pulsanteIl messaggio << SavePresentation () è valido per gli oggetti box di visualizzazione, quindi avrai bisogno di qualcosa come questo per ottenere il report dalla piattaforma che hai creato:
(obj << Report) << Save Presentation( "$DOCUMENTS/report.pptx" )
In alternativa, è possibile utilizzare Current Report (), ma questo porta ad alcuni problemi se si fa qualcos'altro dopo aver creato il report e prima di esportare il Powerpoint. Lo stesso vale per la creazione del tuo report: probabilmente è una buona idea usare:
obj = dt << Gaussian Process(...)
Il 'dt' aiuterà ad assicurare che venga usata la tabella corretta, e potresti aggiungere Nomi predefiniti To Here (1) in alto per assicurarti che queste variabili JSL che crei non entrino in conflitto con altre.
Ri: Script per salvare il report corrente come .ppt, attivato dal clic del pulsanteCiao, grazie mille per la chiarezza. Ho implementato le modifiche che hai suggerito ma non riesco a ottenere il clic del pulsante per avviare il salvataggio del rapporto come ancora .pptx. Il pulsante clic viene visualizzato per caricare per un microsecondo ma nulla viene salvato sul desktop.
// "//!" placed at the first line of script results in auto-run rather than to open the script
// //!
Names Default To Here(1);
//opens a new window
w = New Window( "Load Your Data Table",
Text Box( "Choose an Excel file in which your data is linearized into
columns and transformed into Log10[x]." ),
//button to load data
Button Box( "1. Load data table", dt = Open( ) ),
//button to set column type
Button Box( "2. Set column type to Numeric/Continuous", dt = current data table();
for (i = 1, i <= ncols(dt), i++, column(dt, i) << data type(numeric);
column(dt, i) << set modeling type(continuous))),
//button to initiate Gaussian modeling
Button Box( "3. Gaussian modeling", obj = dt << Gaussian Process(Estimate Nugget(1),
Set Correlation Function("Cubic"), Profiler(1),
SendToReport( Dispatch( {}, "Model Report", OutlineBox, {Close( 1 )})),
//automatically saves the Gaussian analysis as a script to the data table
<< Save Script to Data Table(
"Gaussian modeling",
<<PROMPT></PROMPT>
Script per salvare il report corrente come .ppt, attivato dal clic del pulsante* Ho trovato un paio di post molto simili che sono stati risolti in passato, ma non sono riuscito a utilizzare le soluzioni .... scusate se si tratta di un post duplicato.
Sto cercando di aggiungere uno script attivato da un clic del pulsante che può salvare il rapporto attualmente aperto generato dalla modellazione del processo gaussiano come file .pptx. Ho trovato un esempio pertinente di << salva presentazione (... ) nell'indice di scripting ma non è stato possibile posizionarlo come argomento funzionale della Casella dei pulsanti ("test", [qui]).
Ecco il mio script finora:
// "//!" placed at the first line of script results in auto-run rather than to open the script
// //!
//opens a new window
w = New Window( "Load Your Data Table",
Text Box( "Choose an Excel file in which your data is linearized into
columns and transformed into Log10[x]." ),
//button to load data
Button Box( "1. Load data table", dt = Open( ) ),
//button to set column type
Button Box( "2. Set column type to Numeric/Continuous", dt = current data table();
for (i = 1, i <= ncols(dt), i++, column(dt, i) << data type(numeric);
column(dt, i) << set modeling type(continuous))),
//button to initiate Gaussian modeling
Button Box( "3. Gaussian modeling", obj = Gaussian Process(Estimate Nugget(1),
Set Correlation Function("Cubic"), Profiler(1),
SendToReport( Dispatch( {}, "Model Report", OutlineBox, {Close( 1 )})),
//automatically saves the Gaussian analysis as a script to the data table
<< Save Script to Data Table(
"Gaussian modeling",
<<PROMPT></PROMPT>