14796_zh-TW

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