14796_de-DE

liliconcom

JSL: Analyse an Journal senden und dann als PDF speichern

Hallo, ich habe JSL ein Skript erstellt, um eine Kontrolldiagrammanalyse zu erstellen.

 

Ich möchte die Analyse an ein Journal senden und das Journal dann als PDF-Datei speichern.

 

Hier ist die letzte Codezeile, die nicht funktioniert:

  

 jrn << Save PDF( "C:\test.pdf");

 

Jede Hilfe wäre dankbar!

 

 

//!
Names Default To Here(1);
dt = Open( "$SAMPLE_DATA/Quality Control/Diameter.jmp" );
dt << New Column ( "LOT", Character( 1 ), Nominal, Set Values( {
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B"
  } )
);
cchart = Control Chart( Sample Label(:DAY),Phase(:LOT),Group Size(1),KSigma(3),
  Chart Col( :DIAMETER,
    Individual Measurement(
      Phase Level( "A", LCL( 3.49 ), Avg( 4.36 ), UCL( 5.23 ) ),
      Phase Level( "B", LCL( 3.46 ), Avg( 4.32 ), UCL( 5.18 ) )
    )
  ),
  SendToReport(
    Dispatch(
      {"Individual Measurement of DIAMETER"},
      "IR Chart of IM",FrameBox,
      {Row Legend( MACHINE,Color(1),Color Theme("JMP Default") )}
    )
  ),
  Where( :OPERATOR == "RMM" )
);
jrn = New Window( cchart << Journal );
jrn << Save PDF( "C:\test.pdf");

 

Betreff: JSL: Analyse an Journal senden und dann PDF speichern<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ich definiere ::fid als globale Variable ganz am Anfang des Skripts.Das Gleiche gilt für die globale Variable ::PathOut. Für mich ist ::fid nur die Abkürzung für Datei-ID – etwas, das ich als Dateinamen bezeichnen möchte. Ich gebe die Datei-ID und den Pfadnamen in den ersten Zeilen des Skripts an und führe dann verschiedene Analysen durch, die jeweils in einem Journal gespeichert werden. Ich beende das Skript, indem ich einen Titel für das Journal festlege, ihm eine Referenz gebe (z. B. jrn) und es dann schließlich sowohl als HTML als auch als PowerPoint speichere.

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

Interessante Idee, aber ich konnte sie nicht zum Laufen bringen.

Wie ist ::fid gebraucht ?Muss ich diese globale Variable irgendwo deklarieren?Danke.

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

Das hat funktioniert! Danke.

Ich konnte es sogar im Querformat speichern, was die Darstellung der Phasengrenzen korrigierte

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

Das hat funktioniert! Danke.

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

Ich hatte ein ähnliches Problem beim Speichern einer PowerPoint-Datei und bin schließlich über den Befehl „Präsentation speichern“ gestolpert.Ich führe alle meine Analysen durch, speichere sie in einem gemeinsamen Journal und führe dann die folgenden Zeilen aus.Ich definiere eine globale Variable namens ::fid.Ja, ich kenne die Gefahren kollidierender Namespaces, aber ich bin so ziemlich der Einzige, der in meiner kleinen Firma in JSL programmiert. Also mache ich naiverweise in glückseliger Unwissenheit weiter ...

 

 

Current Journal()<< Set Window Title(::fid || "Summary");
 
/* Set the title of the Journal Window */
jrn=Current Journal();
jrn<<SAVE presentation=""></SAVE>

 

 

Ich dachte nur, ich würde eine ähnliche Erfahrung teilen.

 

Dave

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

Ich verfüge nicht über die erforderlichen Berechtigungen, um auf die oberste Ebene meines Laufwerks C zu schreiben.Außerdem können Sie ein Flag einfügen, um zu verhindern, dass das Dialogfeld zur Seiteneinrichtung angezeigt wird.Schließlich müssen Sie das Tagebuch nicht in ein Fenster legen.Versuche dies:

 

 

jrn = cchart << Journal;
jrn << Save PDF( "C:\temp\test1.pdf", show page setup(0));

 

Betreff: JSL: Analyse an Journal senden und dann PDF speichern

2 Dinge:

1. Irgendwie konnte die Datei bei mir nicht unter „C:“ gespeichert werden.

2. PDF speichern funktioniert für Berichte, aber nicht für Zeitschriften, wie es scheint.

 

Dieser Code funktioniert für mich:

 

 

Names Default To Here(1);
dt = Open( "$SAMPLE_DATA/Quality Control/Diameter.jmp" );
dt << New Column ( "LOT", Character( 1 ), Nominal, Set Values( {
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
  "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B"
  } )
);
cchart = Control Chart( Sample Label(:DAY),Phase(:LOT),Group Size(1),KSigma(3),
  Chart Col( :DIAMETER,
    Individual Measurement(
      Phase Level( "A", LCL( 3.49 ), Avg( 4.36 ), UCL( 5.23 ) ),
      Phase Level( "B", LCL( 3.46 ), Avg( 4.32 ), UCL( 5.18 ) )
    )
  ),
  SendToReport(
    Dispatch(
      {"Individual Measurement of DIAMETER"},
      "IR Chart of IM",FrameBox,
      {Row Legend( MACHINE,Color(1),Color Theme("JMP Default") )}
    )
  ),
  Where( :OPERATOR == "RMM" )
);
 
jrn = cchart << Report;
jrn << Save PDF( "C:\Users\USERNAME\Desktop\test.pdf");