Carte de contrôle en tant que script dans la zone de boutons<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hé, j'utilise JMP 9.0.3
J'essaie d'écrire un script pour créer une macro afin de générer des graphiques de contrôle et de les enregistrer dans le fichier.
J'ai rencontré cette erreur et je ne sais pas comment le résoudre. J'ai cherché quelques heures pour la solution et rien ne semble fonctionner.
le code est:
globaux clairs ();
jrn = NewWindow ("Analyse SPC" || Format (aujourd'hui (), "aaaa-mm-jj"), VListBox (
zone de boutons ("Choisir un fichier de données JMP", Data_Table = open (Choisir un fichier (), invisible);),
boîte globale (Data_Table),
zone de boutons ("Choisir un fichier JMP de spécification", Spec_Table = open (Choisir un fichier (), privé);
pour (i = 2, i <= Ncol (Spec_Table), i ++,
eval (
eval expr (
column (Data_Table, i + 1) << Set Property ("Spec Limits", {LSL (expr (column (Spec_Table, i) [1]))),
TARGET (expr (colonne (Spec_Table, i) [2])),
USL (expr (colonne (Spec_Table, i) [3]))})
)
)
)
),
boîte globale (Spec_Table),
zone de boutons ("Run XBar Control Chart", cc =
Carte de contrôle (
Exemple d'étiquette (: colonne (1)),
KSigma (3),
Chart Col (: colonne (Data_Table, 3), XBar, S)
)
)
)
)
fermer tout (tables de données, pas de sauvegarde);
l'erreur est à la partie rouge, si je viens d'exécuter la fonction de tableau de contrôle, cela fonctionne, si comme sript à l'intérieur de la boîte à boutons, cela ne fonctionne pas.
Merci.
Re: Carte de contrôle en tant que script dans la boîte à boutonsVous avez une boîte de dialogue non modale, ce qui signifie que tout est exécuté, même le plus proche à la fin. Je voudrais ajouter un bouton Fermer à votre boîte de dialogue qui exécute le closeall au lieu de la façon dont vous le faites.
Effacer les globes () ;
jrn = Nouvelle fenetre ( "Analyse SPC" || Format ( Aujourd'hui () , "aaaa-mm-jj" ) ,
Zone de liste V (
Boîte à boutons ( "Choisir un fichier de données JMP" ,
Data_Table = Ouvrir ( Choisir un fichier () , invisible )
) ,
Global Box ( Data_Table ) ,
Boîte à boutons ( "Choisir un fichier JMP de spécification" ,
Spec_Table = Ouvrir ( Choisir un fichier () , privé ) ;
Pour ( je = 2 , je <= N Col ( Spec_Table ) , je ++,
Eval ( Eval Expr (
Colonne ( Data_Table , je + 1 ) << Définir la propriété ( "Limites de spécification" ,
{ LSL ( Expr ( Colonne ( Spec_Table , je ) [ 1 ] ) ) ,
CIBLE ( Expr ( Colonne ( Spec_Table , je ) [ 2 ] ) ) ,
USL ( Expr ( Colonne ( Spec_Table , je ) [ 3 ] ) )}
)
)
)
) ;
) ,
Global Box ( Spec_Table ) ,
Boîte à boutons ( "Exécuter le graphique de contrôle XBar" ,
cc = Carte de contrôle (
Exemple d'étiquette ( : colonne ( 1 ) ) ,
KSigma ( 3 ) ,
Graphique Col ( : colonne ( Data_Table , 3 ) , XBar , S )
)
),
boîte à boutons ( "Fermer" , Ferme tout ( Tableaux de données , pas de sauvegarde ) ;
jrn << Fermer la fenêtre ;
)
)
) ;
