14796_ja-JP

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

 

Re: JSL: 分析をジャーナルに送信し、PDF を保存<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

スクリプトの最初で ::fid をグローバル変数として定義します。::PathOut グローバル変数にも同じことが当てはまります。 私にとって ::fid はファイル ID の略であり、ファイル名と呼びたいものです。 スクリプトの最初の行にファイル ID とパス名を指定して、さまざまな分析を実行し、それぞれを 1 つのジャーナルに保存します。 ジャーナルのタイトルを設定し、参照 (jrn など) を指定してスクリプトを終了し、最後に HTML と PowerPoint の両方として保存します。

Re: JSL: 分析をジャーナルに送信し、PDF を保存

興味深いアイデアですが、私はそれを機能させることができませんでした。

どうですか::fid使用済み ？このグローバル変数をどこかで宣言する必要がありますか?ありがとう。

Re: JSL: 分析をジャーナルに送信し、PDF を保存

これはうまくいきました！ ありがとう。

風景として保存することもでき、段階的な制限のプレゼンテーションが修正されました。

Re: JSL: 分析をジャーナルに送信し、PDF を保存

これはうまくいきました！ ありがとう。

Re: 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>

 

 

同じような経験を共有したいと思ったのです。

 

デイブ

Re: JSL: 分析をジャーナルに送信し、PDF を保存

C ドライブの最上位に書き込むために必要な特権がありません。また、ページ設定ダイアログがポップアップしないように含めることができるフラグもあります。最後に、日記を窓の中に入れる必要はありません。これを試して：

 

 

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

 

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