Controlla la tabella come script nella scatola dei pulsanti<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Ehi, sto usando JMP 9.0.3
Sto cercando di scrivere script per fare macro per generare grafici di controllo e salvarli nel file.
Ho riscontrato questo errore e non ho idea di come risolverlo, ho cercato un paio d'ore per la soluzione e nulla sembra funzionare.
il codice è:
clear globals ();
jrn = NewWindow ("SPC Analysis" || Format (today (), "aaaa-mm-gg"), VListBox (
pulsante ("Scegli file dati JMP", Data_Table = open (Seleziona file (), invisibile);),
casella globale (Data_Table),
button box ("Choose Specification JMP File", Spec_Table = open (Scegli file (), privato);
for (i = 2, i <= Ncol (Spec_Table), i ++,
eval (
eval expr (
column (Data_Table, i + 1) << Imposta proprietà ("Spec Limits", {LSL (expr (column (Spec_Table, i) [1])),
TARGET (espressione (colonna (Spec_Table, i) [2])),
USL (expr (colonna (Spec_Table, i) [3])}))
)
)
)
),
casella globale (tabella Spec_),
pulsante ("Esegui diagramma di controllo XBar", cc =
Tabella di controllo (
Etichetta di esempio (: colonna (1)),
KSigma (3),
Grafico Col (: colonna (Data_Table, 3), XBar, S)
)
)
)
);
chiudi tutto (Tabelle dati, nessun salvataggio);
l'errore è nella parte rossa, se eseguo semplicemente la funzione del diagramma di controllo, funziona, se non è scritto come sript all'interno della casella dei pulsanti.
Grazie.
Ri: Controlla la tabella come script nella casella del pulsanteHai una finestra di dialogo non modale, il che significa che tutto viene eseguito, incluso il closeall alla fine. Vorrei aggiungere un pulsante Chiudi alla finestra di dialogo che esegue il closeall invece di come lo stai facendo.
Chiari Globali () ;
JRN = Nuova finestra ( "Analisi SPC" || Formato ( Oggi () , "Aaaa-mm-gg" ) ,
V List Box (
Scatola dei pulsanti ( "Scegli file dati JMP" ,
Tabella dati = Aperto ( Scegli file () , invisibile )
) ,
Scatola globale ( Tabella dati ) ,
Scatola dei pulsanti ( "Scegli la specifica del file JMP" ,
Spec_Table = Aperto ( Scegli file () , privato ) ;
Per ( io = 2 , io <= N Col ( Spec_Table ) , io ++,
Eval ( Eval Espr (
Colonna ( Tabella dati , io + 1 ) << Imposta proprietà ( "Limiti delle specifiche" ,
{ LSL ( expr ( Colonna ( Spec_Table , io ) [ 1 ] ) ) ,
BERSAGLIO ( expr ( Colonna ( Spec_Table , io ) [ 2 ] ) ) ,
USL ( expr ( Colonna ( Spec_Table , io ) [ 3 ] ) )}
)
)
)
) ;
) ,
Scatola globale ( Spec_Table ) ,
Scatola dei pulsanti ( "Esegui grafico di controllo XBar" ,
cc = Diagramma di controllo (
Etichetta di esempio ( : colonna ( 1 ) ) ,
KSigma ( 3 ) ,
Grafico Col ( : colonna ( Tabella dati , 3 ) , XBar , S )
)
),
scatola dei pulsanti ( "Vicino" , Chiudi tutto ( Tabelle dati , nessun salvataggio ) ;
JRN << chiudi la finestra ;
)
)
) ;
