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