252365_fr-FR

liliconcom

Re: Pour générer des graphiques de variabilité basés sur les variables Y disponibles et les enregistrer dans des images PNG

Je vous ai modifié le code.  Je n'ai pas testé votre code, mais je pense que cela fonctionnera.  Je ne l'ai pas testé.

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 )
    )}
   )
  )
 );
 fName = Report( obj )[Outline Box( 1 )] << Get Title;
 Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG", append );
);

Re: Pour générer des graphiques de variabilité basés sur les variables Y disponibles et les enregistrer dans des images PNG

Merci beaucoup Jim. 

J'ai essayé le code, mais maintenant j'ai plusieurs fenêtres du graphique Var apparues, mais aucune d'entre elles n'a été enregistrée en PNG dans le lecteur désigné.  Je suppose que j'ai peut-être manqué quelque chose près du segment "enregistrer l'image".  

Re: Pour générer des graphiques de variabilité basés sur les variables Y disponibles et les enregistrer dans des images PNGSalut,

J'en ai trouvé la cause. Le script peut maintenant s'exécuter.
Cependant, pour les variables avec "/" dans leurs noms (par exemple, A_B / Tox / Cap), le script provoquera une erreur et ne pourra pas continuer.

Report (obj) << Save Picture ("$ TEMP / myPics /" || colList [i] || ".png", PNG);

Est-ce dû à colList [i]?

Pour générer des graphiques de variabilité basés sur les variables Y disponibles et les enregistrer dans des images PNG

Salut,

 

J'essaie de créer des scripts pour m'aider à générer automatiquement des graphiques de variabilité en fonction des noms de colonne disponibles et à les enregistrer sous individuel Images PNG pour que je puisse lier les images à mon PowerPoint.

 

Mais je ne sais pas pourquoi "obj" était toujours indéfini pendant le débogage. 

 

Je voudrais demander des conseils à ce sujet. Merci beaucoup.

 

- Ann

 

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

 

Scripting