14796_zh-CN

liliconcom

JSL：将分析发送到期刊，然后保存 PDF

您好，我已经编写了 JSL 脚本来创建控制图分析。

 

我想将分析发送到期刊，然后将期刊另存为 PDF 文件。

 

这是不起作用的最后一行代码：

  

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

 

任何帮助，将不胜感激！

 

 

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

 

回复：JSL：将分析发送到期刊，然后保存 PDF<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

我在脚本的开头将 ::fid 定义为全局变量。::PathOut 全局变量也是如此。 对我来说 ::fid 只是文件 ID 的缩写 - 我想称之为文件名。 我在脚本的开头行中提供文件 ID 和路径名，然后运行各种分析，每个分析都保存到一个日志中。 我通过为期刊设置标题、为其提供参考（即 jrn）来结束脚本，最后将其保存为 HTML 和 PowerPoint。

回复：JSL：将分析发送到期刊，然后保存 PDF

有趣的想法，但我无法让它发挥作用。

怎么::FID用过的 ？我需要在某处声明这个全局变量吗？谢谢。

回复：JSL：将分析发送到期刊，然后保存 PDF

这有效！ 谢谢。

我什至可以另存为景观，这修复了阶段限制演示

回复：JSL：将分析发送到期刊，然后保存 PDF

这有效！ 谢谢。

回复：JSL：将分析发送到期刊，然后保存 PDF

我在保存到 PowerPoint 文件时遇到了类似的问题，最后偶然发现了“保存演示文稿”命令。我运行所有分析并将它们保存到通用日志中，然后执行以下几行。我定义了一个名为 ::fid 的全局变量。是的，我知道命名空间冲突的危险，但我几乎是我的小公司中唯一使用 JSL 编写代码的人。所以我天真地在幸福的无知中继续下去......

 

 

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

 

 

只是想我会分享类似的经历。

 

戴夫

回复：JSL：将分析发送到期刊，然后保存 PDF

我没有必要的权限来写入我的 C 驱动器的顶层。您还可以添加一个标志来防止弹出页面设置对话框。最后你不需要把日记放在窗户里。尝试这个：

 

 

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

 

回复：JSL：将分析发送到期刊，然后保存 PDF

2件事：

1. 不知怎的，它不会为我将文件保存在“C:”中。

2.保存PDF看起来适用于报告，但不适用于期刊。

 

这段代码对我有用：

 

 

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