14796_fr-FR

liliconcom

JSL : envoyer l'analyse au journal, puis enregistrer le PDF

Bonjour, j'ai scripté JSL pour créer une analyse de carte de contrôle.

 

J'aimerais envoyer l'analyse à un journal, puis enregistrer le journal sous forme de fichier PDF.

 

Voici la dernière ligne de code qui ne fonctionne pas :

  

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

 

Toute aide serait appréciée!

 

 

//!
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");

 

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Je définis ::fid comme une variable globale au tout début du script.Il en va de même pour la variable globale ::PathOut. Pour moi ::fid est simplement l'abréviation de l'ID de fichier - quelque chose que je veux appeler le nom du fichier. Je fournis l'ID de fichier et le nom de chemin dans les premières lignes du script, puis j'exécute diverses analyses, chacune étant enregistrée dans un journal. Je termine le script en définissant un titre pour le journal, en lui donnant une référence (c'est-à-dire, jrn) et enfin en le sauvegardant à la fois en HTML et en PowerPoint.

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

Idée intéressante, mais je n'ai pas réussi à la faire fonctionner.

Comment est ::fid utilisé ?Dois-je déclarer cette variable globale quelque part ?Merci.

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

Cela a fonctionné ! Merci.

J'ai même pu enregistrer en tant que paysage, ce qui a corrigé la présentation Phased Limits

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

Cela a fonctionné ! Merci.

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

J'ai eu un problème similaire lors de l'enregistrement dans un fichier PowerPoint et je suis finalement tombé sur la commande Enregistrer la présentation.J'exécute toutes mes analyses et les enregistre dans un journal commun, puis j'exécute les lignes suivantes.Je définis une variable globale nommée ::fid.Oui, je connais les dangers des espaces de noms en collision, mais je suis à peu près le seul à coder en JSL dans ma petite entreprise. Je continue donc naïvement dans une ignorance bienheureuse ...

 

 

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

 

 

Je pensais juste partager une expérience similaire.

 

David

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

Je n'ai pas les privilèges nécessaires pour écrire au niveau supérieur de mon lecteur C.Il existe également un indicateur que vous pouvez inclure pour empêcher l'apparition de la boîte de dialogue de mise en page.Enfin, vous n'avez pas besoin de mettre le journal à l'intérieur d'une fenêtre.Essaye ça:

 

 

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

 

Re : JSL : envoyer l'analyse au journal, puis enregistrer le PDF

2 choses :

1. D'une manière ou d'une autre, le fichier ne serait pas enregistré dans "C:" pour moi.

2. Enregistrer le PDF fonctionne pour les rapports mais pas pour les revues, semble-t-il.

 

Ce code fonctionne pour moi:

 

 

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");