非常感謝Jim。
我嘗試了代碼,但是現在我出現了Var圖表的多個窗口,但是沒有一個窗口被保存為指定驅動器中的PNG。 我想也許我錯過了“保存圖片”部分附近的內容。
你好
我正在嘗試編寫一些腳本腳本,這將幫助我根據可用的列名自動生成一些可變性圖表,並將其另存為個人 PNG圖片,以便可以將圖片鏈接到我的Powerpoint。
但是我不確定為什麼在調試期間始終未定義“ obj”。
想就此尋求一些建議。非常感謝。
-安
dt = Open( "D:\My Drive\Program.jmp" );
// Find the Y Columns
numericColNamesList = dt << get column names( string, numeric );
For( i = N Items( numericColNamesList ), i >= 1, i--,
If(
Not(
Is Missing( Num( Word( 1, numericColNamesList[i], ":" ) ) ) == 0 &
Word( 2, numericColNamesList[i], ":" ) != ""
),
numericColNamesList = Remove( numericColNamesList, i, 1 )
)
);
// With varying Y columns and fixed X columns
For( i = 2, i <= N Items( numericColNamesList ), i++,
obj = dt << Variability Chart(
Y( ::Column( numericColNamesList[i] ) ),
X( :code, :lot, :Label, :wafer ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Connect Cell Means( 1 ),
Std Dev Chart( 0 ),
Automatic Recalc( 1 ),
SendToReport(
Dispatch(
{"Variability Chart for numericColNamesList[i]"},
"Variability Chart",
FrameBox,
{Marker Size( 6 ), Row Legend(
Label,
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
)
)
)
);
obj = List( obj[i] );
For( i = 1, i <= N Items( obj ), i++,
fName = Report( obj )[Outline Box( 1 )] << Get Title;
Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG" );
Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG", append );
);