14796_es-ES

liliconcom

JSL: envíe el análisis al diario y luego guarde el PDF

Hola, escribí JSL para crear un análisis de gráfico de control.

 

Me gustaría enviar el análisis a un diario y luego guardar el diario como un archivo PDF.

 

Aquí está la última línea de código que no funciona:

  

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

 

¡Cualquier ayuda sería apreciada!

 

 

//!
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: enviar análisis a diario y luego guardar PDF<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Defino ::fid como una variable global al comienzo del script.Lo mismo ocurre con la variable global ::PathOut. Para mí ::fid es solo la abreviatura de ID de archivo, algo que quiero llamar el nombre del archivo. Proporciono el ID del archivo y el nombre de la ruta en las primeras líneas del script y luego ejecuto una variedad de análisis, cada uno de los cuales se guarda en un diario. Termino el guión estableciendo un título para el diario, dándole una referencia (es decir, jrn) y finalmente lo guardo como HTML y PowerPoint.

Re: JSL: enviar análisis a diario y luego guardar PDF

Interesante idea, pero no pude hacerla funcionar.

Cómo es ::defensor usado ?¿Necesito declarar esta variable global en alguna parte?Gracias.

Re: JSL: enviar análisis a diario y luego guardar PDF

¡Esto funcionó! Gracias.

Incluso pude guardar como Horizontal, lo que arregló la presentación de Phased Limits

Re: JSL: enviar análisis a diario y luego guardar PDF

¡Esto funcionó! Gracias.

Re: JSL: enviar análisis a diario y luego guardar PDF

Tuve un problema similar al guardar en un archivo de PowerPoint y finalmente encontré el comando Guardar presentación.Ejecuto todos mis análisis y los guardo en un diario común y luego ejecuto las siguientes líneas.Defino una variable global llamada ::fid.Sí, conozco los peligros de la colisión de espacios de nombres, pero soy prácticamente el único que codifica en JSL en mi pequeña empresa, así que ingenuamente continúo en una feliz ignorancia...

 

 

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

 

 

Solo pensé en compartir una experiencia similar.

 

dave

Re: JSL: enviar análisis a diario y luego guardar PDF

No tengo los privilegios necesarios para escribir en el nivel superior de mi unidad C.También hay una bandera que puede incluir para evitar que aparezca el cuadro de diálogo de configuración de página.Finalmente no necesitas poner el diario dentro de una ventana.Prueba esto:

 

 

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

 

Re: JSL: enviar análisis a diario y luego guardar PDF

2 cosas:

1. De alguna manera no guardaría el archivo en "C:" para mí.

2. Guardar PDF funciona para informes pero no para revistas, como parece.

 

Este código funciona para mí:

 

 

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