<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hey, ich verwende JMP 9.0.3
Ich versuche, ein Skript zu schreiben, um ein Makro zu erstellen, um Steuerungsdiagramme zu erstellen und sie in der Datei zu speichern.
Ich bin auf diesen Fehler gestoßen und habe keine Ahnung, wie ich ihn lösen soll. Ich habe nach ein paar Stunden nach einer Lösung gesucht und nichts scheint zu funktionieren.
Der Code lautet:
clear globals ();
jrn = NewWindow ("SPC-Analyse" || Format (heute (), "JJJJ-MM-TT"), VListBox (
Schaltflächenfeld ("Choose JMP Data File", Data_Table = open (Datei auswählen (), unsichtbar);),
globale Box (Data_Table),
Schaltflächenfeld ("Choose Specification JMP File", Spec_Table = open (Pick File (), privat);
für (i = 2, i <= Ncol (Spec_Table), i ++,
eval (
eval expr (
column (Data_Table, i + 1) << Eigenschaft setzen ("Spec Limits", {LSL (expr (column (Spec_Table, i) [1])),
TARGET (expr (Spalte (Spec_Table, i) [2])),
USL (expr (Spalte (Spec_Table, i) [3]))})
)
)
)
)
globale Box (Spec_Table),
Schaltflächenfeld ("XBar Control Chart ausführen", cc =
Steuerkarte (
Probenetikett (: Spalte (1)),
KSigma (3),
Diagrammspalte (: Spalte (Data_Table, 3), XBar, S)
)
)
)
);
alle schließen (Datentabellen, kein Speichern);
der fehler ist im roten teil, wenn ich nur die control chart funktion ausführe, funktioniert es, wenn als sript in button box es nicht funktioniert.
Vielen Dank.
Sie haben ein nicht-modales Dialogfeld, das bedeutet, dass alles ausgeführt wird, einschließlich der closeall am Ende. Ich würde Ihrem Dialogfeld einen Schließen-Button hinzufügen, der das closeall ausführt, anstatt wie Sie es tun.
Globale löschen () ;
jrn = Neues Fenster ( "SPC-Analyse" || Format ( Heute () . "JJJJ-MM-TT" ) .
V Listenfeld (
Button Box ( "JMP-Datendatei auswählen" .
Datentabelle = Öffnen ( Datei auswählen () . unsichtbar )
) .
Globale Box ( Datentabelle ) .
Button Box ( Msgstr "Spezifikation JMP-Datei auswählen" .
Spec_Table = Öffnen ( Datei auswählen () . Privatgelände ) ;
Zum ( ich = 2 . ich <= N Col ( Spec_Table ) . ich ++
Eval ( Eval Expr (
Säule ( Datentabelle . ich + 1 ) << Eigenschaft festlegen ( "Spezifikationsgrenzen" .
{ LSL ( Ausdruck ( Säule ( Spec_Table . ich ) [ 1 ] ) ) .
ZIEL ( Ausdruck ( Säule ( Spec_Table . ich ) [ 2 ] ) ) .
USL ( Ausdruck ( Säule ( Spec_Table . ich ) [ 3 ] ) )}
)
)
)
) ;
) .
Globale Box ( Spec_Table ) .
Button Box ( "XBar-Kontrollkarte ausführen" .
cc = Steuerkarte (
Musteretikett ( : Säule ( 1 ) ) .
KSigma ( 3 ) .
Diagramm Col ( : Säule ( Datentabelle . 3 ) . XBar . S )
)
)
Schaltflächenfeld ( "Schließen" . Alle schließen ( Datentabellen . keine speichern ) ;
jrn << Fenster schließen ;
)
)
) ;
